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PAGE, 120 

TITLE ENHANCED GRAPHICS ADAPTER BIOS 

EXTRN CGMN:NEAR, CGDDOT:NEAR, INT_1F_1:NEAR, CGMN_FDG:NEAR 
EXTRN END_ADDRESS: NEAR 


; 

; THE BIOS ROUTINES ARE MEANT TO BE ACCESSED THROUGH 
; SOFTWARE INTERRUPTS ONLY, ANY ADDRESSES PRESENT IN 
; THE LISTINGS ARE INCLUDED ONLY FOR COMPLETENESS, 
NOT FOR REFERENCE. APPLICATIONS WHICH REFERENCE 
; ABSOLUTE ADDRESSES WITHIN THE CODE SEGMENT 
; VIOLATE THE STRUCTURE AND DESIGN OF BIOS. 


LIST 
INCLUDE VFRONT . INC 
SUBTTL VFRONT.INC 
PAGE 

-- INT 10 - 





VIDEO_IO 
THESE ROUTINES PROVIDE THE CRT INTERFACE 
THE FOLLOWING FUNCTIONS ARE PROVIDED: 
(AH)=0 SET MODE (AL) CONTAINS MODE VALUE 


AL AD TYPE RES NOTES DF-DIM DISPLAY MAX PGS 
* O B8 ALPHA 640X200 40X25 COLOR - BW 8 
1 BS ALPHA 640X200 40X25 COLOR 8 
* 2 B8 ALPHA 640X200 80X25 COLOR - BW 8 
3 B8 ALPHA 640X200 80X25 COLOR 8 
4 Bs GRPHX 320x200 40X25 COLOR 1 
5 B8 GRPHX 320x200 40X25 COLOR - BW 1 
6 B8 GRPHX 640X200 80X25 COLOR - BW 1 
* 7 BO ALPHA 720X350 80X25 MONOCHROME 8 
8 RESERVED 
9 RESERVED 
A RESERVED 
B RESERVED -— INTERNAL USE 
c RESERVED -— INTERNAL USE 
D AO GRPHX 320X200 40X25 COLOR 8 
E Ao GRPHX 640X200 80X25 COLOR 4 
F AO GRPHX 640X350 80X25 MONOCHROME 2 
10 AO GRPHX 640X350 80X25 HI RES 2 


NOTE : HIGH BIT AL SET PREVENTS REGEN BUFFER CLEAR ON 
MODES RUNNING ON THE COMBO VIDEO ADAPTER 


*** NOTE BW MODES OPERATE SAME AS COLOR MODES, BUT 
COLOR BURST IS NOT ENABLED 
(AH)=1 SET CURSOR TYPE 
(CH) = BITS 4-0 = START LINE FOR CURSOR 
** HARDWARE WILL ALWAYS CAUSE BLINK 
** SETTING BIT 5 OR 6 WILL CAUSE ERRATIC 
BLINKING OR NO CURSOR AT ALL 
(CL) = BITS 4-0 = END LINE FOR CURSOR 
(AH)=2 SET CURSOR POSITION 
(DH,DL) = ROW,COLUMN (0,0) IS UPPER LEFT 
(BH) = PAGE NUMBER 
(AH)=3 READ CURSOR POSITION 
(BH) = PAGE NUMBER 
ON EXIT (DH,DL) = ROW,COLUMN OF CURRENT CURSOR 
(CH,CL) = CURSOR MODE CURRENTLY SET 
(AH)=4 READ LIGHT PEN POSITION 


ON EXIT: 
(AH) = 0 -- LIGHT PEN SWITCH NOT DOWN/NOT TRIGGERED 
(AH) = 1 -- VALID LIGHT PEN VALUE IN REGISTERS 


(DH,DL) = ROW,COLUMN OF CHARACTER LP POSN 


(CH) = RASTER LINE (0-199) 
(CX) = RASTER LINE (Q=NNN) NEW GRAPHICS MODES 
(BX) = PIXEL COLUMN (0-319, 639) 


(AH)=5 SELECT ACTIVE DISPLAY PAGE 
(AL) = NEW PAGE VALUE, SEE AH=0 FOR PAGE INFO 
(AH)=6 SCROLL ACTIVE PAGE UP 
(AL) = NUMBER OF LINES, INPUT LINES BLANKED AT BOTTOM 
OF WINDOW 
AL = 0 MEANS BLANK ENTIRE WINDOW 
(CH,CL) = ROW,COLUMN OF UPPER LEFT CORNER OF SCROLL 
(DH,DL) = ROW,COLUMN OF LOWER RIGHT CORNER OF SCROLL 
(BH) = ATTRIBUTE TO BE USED ON BLANK LINE 
(AH)=7 SCROLL ACTIVE PAGE DOWN 
(AL) = NUMBER OF LINES, INPUT LINES BLANKED AT TOP 
OF WINDOW 
AL = 0 MEANS BLANK ENTIRE WINDOW 
(CH,CL) = ROW,COLUMN OF UPPER LEFT CORNER OF SCROLL 
(DH,DL) = ROW,COLUMN OF LOWER RIGHT CORNER OF SCROLL 
(BH) = ATTRIBUTE TO BE USED ON BLANK LINE 


CHARACTER HANDLING ROUTINES 


(AH) = 8 READ ATTRIBUTE/CHARACTER AT CURRENT CURSOR POSITION 
(BH) = DISPLAY PAGE 
ON EXIT: 
(AL) = CHAR READ 
(AH) = ATTRIBUTE OF CHARACTER READ (ALPHA MODES ONLY) 
9 WRITE ATTRIBUTE/CHARACTER AT CURRENT CURSOR POSITION 
(BH) = DISPLAY PAGE 


(AH) 





(CX) COUNT OF CHARACTERS TO WRITE 
(AL) = CHAR TO WRITE 
(BL) = ATTRIBUTE OF CHARACTER (ALPHA) /COLOR OF CHAR 


(GRAPHICS) 
SEE NOTE ON WRITE DOT FOR BIT 7 OF BL = 1. 
(AH) = A WRITE CHARACTER ONLY AT CURRENT CURSOR POSITION 


(BH) = DISPLAY PAGE 
(CX) = COUNT OF CHARACTERS TO WRITE 
(AL) = CHAR TO WRITE 


FOR READ/WRITE CHARACTER INTERFACE WHILE IN GRAPHICS MODE, THE 
CHARACTERS ARE FORMED FROM A CHARACTER GENERATOR IMAGE 
MAINTAINED IN THE SYSTEM ROM. ONLY THE 1ST 128 CHARS 
ARE CONTAINED THERE. TO READ/WRITE THE SECOND 128 
CHARS, THE USER MUST INITIALIZE THE POINTER AT : 
INTERRUPT 1FH (LOCATION 00007CH) TO POINT TO THE 1K BYTE : 
TABLE CONTAINING THE CODE POINTS FOR THE SECOND : 
128 CHARS (128-255). 


FOR THE NEW GRAPHICS MODES 256 GRAPHICS CHARS ARE 
SUPPLIED IN THE SYSTEM ROM. 


FOR WRITE CHARACTER INTERFACE IN GRAPHICS MODE, THE REPLICATION 
FACTOR CONTAINED IN (CX) ON ENTRY WILL PRODUCE VALID 
RESULTS ONLY FOR CHARACTERS CONTAINED ON THE SAME ROW. 
CONTINUATION TO SUCCEEDING LINES WILL NOT PRODUCE 
CORRECTLY. 
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127 c > 

128 c ; GRAPHICS INTERFACE 

129 c ; (AH) = B- SET COLOR PALETTE 

130 e = FOR USE IN COMPATIBILITY MODES 

131 c ; (BH) = PALETTE COLOR ID BEING SET (0-127) 

132 C4 (BL) = COLOR VALUE TO BE USED WITH THAT COLOR ID 

133 c ; NOTE: FOR THE CURRENT COLOR CARD, THIS ENTRY POINT 
134 c ; HAS MEANING ONLY FOR 320X200 GRAPHICS. 

135 cy COLOR ID = 0 SELECTS THE BACKGROUND COLOR (0-15) 
136 C.} COLOR 1D = 1 SELECTS THE PALETTE TO BE USED: 
137 c-3 0 = GREEN (1) /RED (2) /BROWN (3) 

138 c ; 1 = CYAN(1) /MAGENTA (2) /WHITE (3) 

139 es IN 40X25 OR 80X25 ALPHA MODES, THE VALUE SET 
140 C3 FOR PALETTE COLOR 0 INDICATES THE 
141 CoG BORDER COLOR TO BE USED (VALUES 0-31, 
142 c ; WHERE 16-31 SELECT THE HIGH NTENSITY 
143 c ; BACKGROUND SET) . 

144 c ; (AH) = C WRITE DOT 

145 c ; (BH) = PAGE 

146 eS (DX) = ROW NUMBER 

147 c ; (CX) = COLUMN NUMBER 

148 ome (AL) = COLOR VALUE 

149 C3 IF BIT 7 OF AL = 1, THEN THE COLOR VALUE IS 
150 c ; EXCLUSIVE OR’D WITH THE CURRENT CONTENTS OF 
151 ae THE DOT 

152 c ; (AH) = D READ DOT 

153 co3 (BH) = PAGE 

154 c ; (DX) = ROW NUMBER 

155 eos (CX) = COLUMN NUMBER 

156 Co} (AL) RETURNS THE DOT READ 

157 C3 

158 C ; ASCII TELETYPE ROUTINE FOR OUTPUT 

159 c ; 

160 c ; (AH) = E WRITE TELETYPE TO ACTIVE PAGE 

161 cy (AL) = CHAR TO WRITE 

162 c ; (BL) = FOREGROUND COLOR IN GRAPHICS MODE 

163 c ; NOTE -- SCREEN WIDTH IS CONTROLLED BY PREVIOUS MODE SET 
164 C4 

165 c ; (AH) = F CURRENT VIDEO STATE 

166 c ; RETURNS THE CURRENT VIDEO STATE 

167 e~ oy (AL) = MODE CURRENTLY SET (SEE AH=0 FOR EXPLANATION) 
168 ome (AH) = NUMBER OF CHARACTER COLUMNS ON SCREEN 

169 c ; (BH) = CURRENT ACTIVE DISPLAY PAGE 

170 c ; 

171 es (AH) = 10 SET PALETTE REGISTERS 

172 Co} 

173 C3 (AL) = 0 SET INDIVIDUAL PALETTE REGISTER 

174 c ; BL = PALETTE REGISTER TO BE SET 

175 cy BH = VALUE TO SET 

176 c ; 

177 c ; AL =1 SET OVERSCAN REGISTER 

178 c= BH = VALUE TO SET 

179 c ; 

180 C4 AL = 2 SET ALL PALETTE REGISTERS AND OVERSCAN 
181 C3 ES:DX POINTS TO A 17 BYTE TABLE 

182 c ; BYTES 0 - 15 ARE THE PALETTE VALUES, RESPECTIVELY 
183 cu 3 BYTE 16 IS THE OVERSCAN VALUE 

184 c ; 

185 co3 AL = 3 TOGGLE INTENSIFY/BLINKING BIT 

186 & x BL - 0 ENABLE INTENSIFY 

187 eos BL - 1 ENABLE BLINKING 

188 C3 

189 CG (AH) = 11 CHARACTER GENERATOR ROUTINE 

190 c ; NOTE : THIS CALL WILL INITIATE A MODE SET, COMPLETELY 
191 c ; RESETTING THE VIDEO ENVIRONMENT BUT MAINTAINING 
192 c ; THE REGEN BUFFER, 

193 c ; 

194 e. = AL = 00 USER ALPHA LOAD 

195 c ; ES:BP - POINTER TO USER TABLE 

196 C4 cx - COUNT TO STORE 

197 c ; Dx - CHARACTER OFFSET INTO TABLE 

198 c ; BL - BLOCK TO LOAD 

199 e~y BH - NUMBER OF BYTES PER CHARACTER 

200 ome AL = 01 ROM MONOCHROME SET 

201 C3 BL - BLOCK TO LOAD 

202 e > AL = 02 ROM 8X8 DOUBLE DOT 

203 es BL - BLOCK TO LOAD 

204 C3 AL = 03 SET BLOCK SPECIFIER 

205 CoG BL - CHAR GEN BLOCK SPECIFIER 

206 c ; D3-D2 ATTR BIT.3 ONE, CHAR GEN 0-3 
207 c ; D1-DO ATTR BIT 3 ZERO, CHAR GEN 0-3 
208 c ; NOTE : WHEN USING AL = 03 A FUNCTION CALL 
209 c ; AX = 1000H 

210 es BX = 0712H 

211 c ; IS RECOMMENDED TO SET THE COLOR PLANES 
212 ome RESULTING IN 512 CHARACTERS AND EIGHT 
213 C3 CONSISTENT COLORS. 

214 c ; 

215 ae NOTE : THE FOLLOWING INTERFACE (AL=1X) IS SIMILAR IN FUNCTION 
216 C3 TO (AL=0X) EXCEPT THAT 

217 co3 - PAGE ZERO MUST BE ACTIVE 

218 c ; - POINTS (BYTES/CHAR) WILL BE RECALCULATED 
219 eos - ROWS WILL BE CALCULATED FROM THE FOLLOWING: 
220 Co} INT(200 OR 350) / POINTS) - 1 

221 C3 - CRT_LEN WILL BE CALCULATED FROM 

222 c ; (ROWS + 1) * CRT_COLS * 2 

223 c ; - THE CRTC WILL BE REPROGRAMMED AS FOLLOWS 
224 c ; RO9H = POINTS = 1 MAX SCAN LINE 
225 c ; RO9H DONE ONLY IN MODE 7 

226 e > ROAH = POINTS - 2 CURSOR START 
227 c ; ROBH = 0 CURSOR END 
228 Co} R12H = VERT DISP END 
229 Cc 3 [ (Rows + 1) * POINTS] = 1 

230 c ; R14H = POINTS UNDERLINE LOC 
231 cy 

232 ome THE ABOVE REGISTER CALCULATIONS MUST BE CLOSE TO THE 
233 c ; ORIGINAL TABLE VALUES OR UNDETERMINED RESULTS WILL 
234 e > OccuR. 

235 es 

236 C3 NOTE : THE FOLLOWING INTERFACE IS DESIGNED TO BE 

237 C3 CALLED ONLY IMMEDIATELY AFTER A MODE SET HAS 
238 c ; BEEN ISSUED. FAILURE TO ADHERE TO THIS PRACTICE 
239 c ; MAY CAUSE UNDETERMINED RESULTS. 

240 C3 AL = 10 USER ALPHA LOAD 

241 Cc 3 

242 c ; ES:BP - POINTER TO USER TABLE 

243 c ; cx - COUNT TO STORE 

244 C4 Dx - CHARACTER OFFSET INTO TABLE 

245 C3 BL - BLOCK TO LOAD 

246 c ; BH — NUMBER OF BYTES PER CHARACTER 

247 ae AL = 11 ROM MONOCHROME SET 

248 c.3 BL - BLOCK TO LOAD 

249 c-3 AL = 12 ROM 8X8 DOUBLE DOT 

250 & = BL - BLOCK TO LOAD 

251 ers 

252 eo 4 


0000 
0014 
0014 
0040 
0040 
007Cc 
007c 


0108 
0108 


010c 
010c 


0410 
0410 
0410 


0449 
0449 
044A 
044c 
044E 
0450 


0460 
0462 


222? 


253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 


IBM Enhanced Graphics Adapter 


agaaaaaaaaaaaNaANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANNANNANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANAANANAANANAANAANAANAANAANANA 


August 2, 1984 


; NOTE THE FOLLOWING INTERFACE IS DESIGNED TO BE 

; CALLED ONLY IMMEDIATELY AFTER A MODE SET HAS 
; BEEN ISSUED. FAILURE TO ADHERE TO THIS PRACTICE 
; MAY CAUSE UNDETERMINED RESULTS. 

; 

; AL = 20 USER GRAPHICS CHARS INT 01FH (8X8) 

; ES:BP -— POINTER TO USER TABLE 

; AL = 21 USER GRAPHICS CHARS 

; ES:BP -— POINTER TO USER TABLE 

; cx - POINTS (BYTES PER CHARACTER) 

; BL - ROW SPECIFIER 

i 

; BL = 0 USER 

; DL — ROWS 

; BL = 1 14 (OEH) 

; BL = 2 25 (19H) 

7 BL = 3 43 (2BH) 

i 

; AL = 22 ROM 8 X 14 SET 

; BL - ROW SPECIFIER 

; AL = 23 ROM 8 X 8 DOUBLE DOT 

; BL - ROW SPECIFIER 

; 

; 

; AL = 30 INFORMATION 

; cx - POINTS 

; DL - ROWS 

; BH - 0 RETURN CURRENT INT 1FH PTR 
; ES:BP -— PTR TO TABLE 

; BH Sid (RETURN CURRENT INT 44H PTR 
; ES:BP -— PTR TO TABLE 

; BH - 2 RETURN ROM 8 X 14 PTR 

; ES:BP -— PTR TO TABLE 

; BH 3. RETURN ROM DOUBLE DOT PTR 
; ES:BP -— PTR TO TABLE 

; BH -4 RETURN ROM DOUBLE DOT PTR (TOP) 
; ES:BP -— PTR TO TABLE 

; BH - 5 RETURN ROM ALPHA ALTERNATE 9X14 
; ES:BP -— PTR TO TABLE 

i 

; (AH) 12 ALTERNATE SELECT 

i 

; BL = 10 RETURN EGA INFORMATION 

7 BH = 0 — COLOR MODE IN EFFECT <3><D><X> 

7 1 - MONOC MODE IN EFFECT <3><B><xX> 

; BL = MEMORY VALUE 

7 0 0 - 064K 01 - 128K 

; 10 - 192K 11 - 256K 

; CH = FEATURE BITS 

; CL = SWITCH SETTING 

; 

; BL = 20 SELECT ALTERNATE PRINT SCREEN ROUTINE 

; 

; (AH) = 13 WRITE STRING 

; ES:BP -— POINTER TO STRING TO BE WRITTEN 

; cx - CHARACTER ONLY COUNT 

; Dx - POSITION TO BEGIN STRING, IN CURSOR 
; TERMS 

; BH - PAGE NUMBER 

; 

; AL = 0 

; BL - ATTRIBUTE 

; STRING - (CHAR, CHAR, CHAR, ) 

; CURSOR NOT MOVED 

; AL =1 

; BL - ATTRIBUTE 

; STRING -— (CHAR, CHAR, CHAR, ...) 

; CURSOR IS MOVED 

; AL = 2 

; STRING - (CHAR, ATTR, CHAR, ATTR, ...) 

; CURSOR NOT MOVED 

; AL = 3 

; STRING = (CHAR, ATTR, CHAR, ATTR, ...) 

; CURSOR IS MOVED 

; 

; NOTE CHAR RET, LINE FEED, BACKSPACE, AND BELL ARE 
; TREATED AS COMMANDS RATHER THAN PRINTABLE 
; CHARACTERS . 

; 
jooe+--------------------------------- +--+ +--+ +--+ +--+ +--+ +--+ +--+ +--+ +--+ ++ 
SRLOAD MACRO SEGREG, VALUE 


IFNB <VALUE> 
IFIDN <VALUE>, <0> 
SUB DX, DX 
ELSE 
MOV 
ENDIF 
ENDIF 
MOV 
ENDM 


DX, VALUE 


SEGREG, DX 


p-S=-= LOW MEMORY SEGMENT 


ABSO SEGMENT AT 0 
ORG OO5H*4 
INT5_PTR LABEL DWORD 
ORG 010H*4 
VIDEO LABEL DWORD 
ORG O1FH*4 
EXT_PTR LABEL DWORD 
ORG 042H*4 
PLANAR_VIDEO LABEL DWORD 
ORG 043H*4 
GRX_SET LABEL DWORD 
ORG 0410H 
EQUIP_LOW LABEL BYTE 
EQUIP_FLAG DW 2 


ah — REUSE RAM FROM PLANAR BIOS 





ORG 0449H 
CRT_MODE DB ? 
CRT_COLS DW ? 
CRT_LEN DW ? 
CRT_START DW ? 
CURSOR_POSN DW 8 DUP (7) 
CURSOR_MODE DW 7 
ACTIVE_PAGE DB ? 


; PRINT SCREEN VECTOR 
; VIDEO I/O VECTOR 


; GRAPHIC CHARS 128-255 


; REVECTORED 10H*4 


; GRAPHIC CHARS 0-255 


0488 


04A8 
04A8 





222? 








2? 


379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
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ADDR_6845 DW 
CRT_MODE_SET DB 
CRT_PALETTE DB 
ORG 0472H 
RESET_FLAG DW 
ORG 0484H 
ROWS DB ? 
POINTS DW ? 
INFO DB ? 
INFO 
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? 


; ROWS ON THE SCREEN 
; BYTES PER CHARACTER 


D7 - HIGH BIT OF MODE SET, CLEAR/NOT CLEAR REGEN 
D6 —- MEMORY D6 D5 = 0 O —- 064K 01 - 128K 


D5 — MEMORY 
D4 — RESERVED 


10 - 192K 11 - 256K 


D3 - EGA ACTIVE MONITOR (0), EGA NOT ACTIVE (1) 
D2 - WAIT FOR DISPLAY ENABLE (1) 

D1 - EGA HAS A MONOCHROME ATTACHED (1) 

DO - SET C_TYPE EMULATE ACTIVE (0) 


DB ? 


D7-D4 FEATURE BITS 
D3-DO SWITCHES 


ORG 04A8H 


SAVE_PTR LABEL 


DWORD 


SAVE_PTR IS A POINTER TO A TABLE AS DESCRIBED AS FOLLOWS 


DWORD_1 
DWORD_2 
DWORD_3 
DWORD_4 
DWORD_5 
DWORD_6 
DWORD_7 


DWORD_1 


DWORD_2 


DWORD_3 


DWORD_4 


VIDEO PARAMETER TABLE POINTER 

DYNAMIC SAVE AREA POINTER 

ALPHA MODE AUXILIARY CHAR GEN POINTER 
GRAPHICS MODE AUXILIARY CHAR GEN POINTER 
RESERVED 

RESERVED 

RESERVED 


PARAMETER TABLE POINTER 
INITIALIZED TO BIOS EGA PARAMETER TABLE. 
THIS VALUE MUST EXIST. 


PARAMETER SAVE AREA POENTER 

INITIALIZED TO 0000:0000, THIS VALUE IS OPTIONAL. 
WHEN NON-ZERO, THIS POINTER WILL BE USED AS POINTER 
TO A RAM AREA WHERE CERTAIN DYNAMIC VALUES ARE TO 
BE SAVED. WHEN IN EGA OPERATION THIS RAM AREA WILL 
HOLD THE 16 EGA PALETTE REGISTER VALUES PLUS 

THE OVERSCAN VALUE IN BYTES 0-16D RESPECTIVELY. 

AT LEAST 256 BYTES MUST BE ALLOCATED FOR THIS AREA, 


ALPHA MODE AUXILIARY POINTER 

INITIALIZED TO 0000:0000, THIS VALUE IS OPTIONAL. 
WHEN NON=ZERO, THIS POINTER IS USED AS A POINTER 
TO A TABLES DESCRIBED AS FOLLOWS 


BYTE BYTES/CHARACTER 

BYTE BLOCK TO LOAD, SHOULD BE ZERO FOR NORMAL 
OPERATION 

WORD COUNT TO STORE, SHOULD BE 256D FOR NORMAL 
OPERATION 

WORD CHARACTER OFFSET, SHOULD BE ZERO FOR NORMAL 
OPERATION 

DWORD POINTER TO A FONT TABLE 

BYTE DISPLAYABLE ROWS 
IF FF THE MAXIMUM CALCULATED VALUE WILL BE 
USED, ELSE THIS VALUE WILL BE USED 

BYTE CONSECUTIVE BYTES OF MODE VALUES FOR WHICH 
THIS FONT DESCRIPTION IS TO BE USED. 
THE END OF THIS STREAM IS INDICATED BY A 
BYTE CODE OF ’FF’ 


NOTE : USE OF THIS POINTER MAY CAUSE UNEXPECTED 
CURSOR TYPE OPERATION. FOR AN EXPLANATION 
OF CURSOR TYPE SEE AH = 01 IN THE INTERFACE 
SECTION, 


GRAPHICS MODE AUXILIARY POINTER 
INITIALIZED TO 0000:0000, THIS VALUE IS OPTIONAL. 
WHEN NON-ZERO, THIS POINTER IS USED AS A POINTER 
TO A TABLES DESCRIBED AS FOLLOWS 


BYTE DISPLAYABLE ROWS 

WORD BYTES PER CHARACTER 

DWORD POINTER TO A FONT TABLE 

BYTE CONSECUTIVE BYTES OF MODE VALUES FOR WHICH 
THIS FONT DESCRIPTION IS TO BE USED. 
THE END OF THIS STREAM IS INDICATED BY A 
BYTE CODE OF ’FF’ 


DWORD_5 THRU DWORD_7 


ORG 0500H 


STATUS_BYTE DB 


ABSO 


ENDS 


EQU 
EQU 


EQUATES FOR CARD 


SEQ_ADDR 
SEQ_DATA 
CRTC_ADDR 
CRTC_ADDR_B 
CRTC_DATA 
GRAPH_1_POS 
GRAPH_2_POS 
GRAPH_ADDR 
GRAPH_DATA 
MISC_OUTPUT 
IN_STAT_O 
INPUT_STATUS_B 
INPUT_STATUS 
ATTR_READ 
ATTR_WRITE 


RESERVED AND SET TO 0000:0000. 


61H ; 8255 PORT B ADDR 
40H 


PORT ADDRESSES 


EQU 0C4H 
EQU OC5H 
EQU OD4H 
EQU OB4H 
EQU OD5H ; OR OB5H 
EQU OCCH 
EQU OCAH 
EQU OCEH 
EQU OCFH 
EQU 0c2H 
EQU 0c2H 
EQU OBAH 
EQU ODAH 
EQU ODAH 
EQU OCOH 


EQUATES FOR ADDRESS REGISTER VALUES 
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= 0000 505 c S_RESET EQU 00H 
0001 506 c S_CLOCK EQU 01H 
0002 507 c S_MAP EQU 02H 
0003 508 c S_CGEN EQU 03H 
0004 509 c S_MEM EQU 04H 
510 c 
= 0000 511 c C_HRZ_TOT EQU 00H 
0001 512 c C_HRZ_DSP EQU 01H 
0002 513 c C_STRT_HRZ_BLK EQU 02H 
0003 514 c C_END_HRZ_BLK  EQU 03H 
0004 515 c C_STRT_HRZ_SYN EQU 04H 
0005 516 c C_END_HRZ_SYN EQU 05H 
0006 517 c C_VRT_TOT EQU 06H 
0007 518 c C_OVERFLOW EQU 07H 
0008 519 c C_PRE_ROW EQU 08H 
0009 520 c C_MAX_SCAN_LN EQU 09H 
000A 521 c C_CRSR_START EQU OAH 
000B 522 c C_CRSR_END EQU OBH 
o00c 523 c C_STRT_HGH EQU OCH 
ooop 524 c C_STRT_LOW EQU ODH 
000E 525 c C_CRSR_LOC_HGH EQU OEH 
OooF 526 c C_CRSR_LOC_LOW EQU OFH 
0010 527 c C_VRT_SYN_STRT EQU 10H ; WRITE ONLY 
0010 528 c C_LGHT_PEN_HGH EQU 10H ; READ ONLY 
0011 529 c C_VRT_SYN_END EQU 11H ; WRITE ONLY 
0011 530 c C_LGHT_PEN_LOW EQU 11H ; READ ONLY 
0012 531 c C_VRT_DSP_END EQU 12H 
0013 532 c C_OFFSET EQU 13H 
0014 533 c C_UNDERLN_LOC EQU 14H 
0015 534 c C_STRT_VRT_BLK EQU 15H 
= 0016 535 c C_END_VRT_BLK EQU 16H 
= 0017 536 c C_MODE_CNTL EQU 17H 
= 0018 537 c C_LN_COMP EQU 18H 
538 c 
= 0000 539 c G_SET_RESET EQU 00H 
= 0001 540 c G_ENBL_SET EQU 01H 
= 0002 541 c G_CLR_COMP EQU 02H 
= 0003 542 c G_DATA_ROT EQU 03H 
= 0004 543 c G_READ_MAP EQU 04H 
0005 544 c G_MODE EQU 05H 
= 0006 545 c G_MISC EQU 06H 
= 0007 546 c G_COLOR EQU 07H 
= 0008 547 c G_BIT_MASK EQU 08H 
548 c 
= 0010 549 c P_MODE EQU 10H 
0011 550 c P_OVERSC EQU 11H 
0012 551 c P_CPLANE EQU 12H 
= 0013 552 c P_HPEL EQU 13H 
553 c 
554 c SUBTTL 
555 
556 poco CODE SEGMENT 
557 
0000 558 CODE SEGMENT PUBLIC 
559 
560 c INCLUDE VPOST. INC 
561 c SUBTTL VPOST.INC 
562 c PAGE 
563 c 
564 c ; — POST 
565 c 
566 c ASSUME CS:CODE, DS:ABSO 
0000 567 c ORG OH 
0000 55 568 c DB 055H ; SIGNATURE 
0001 AA 569 c DB OAAH ; BYTES 
0002 20 570 c DB 020H ; LENGTH INDICATOR 
571 c 
572 C yoo NOTE : DO NOT USE THE SIGNATURE BYTES AS A PRESENCE TEST 
573 c 
574 Co} PLANAR VIDEO SWITCH SETTINGS 
575 c 
576 olaeer 0 0 - UNUSED 
577 Cc.) 0 1 - 40 X 25 COLOR 
578 (ole 1 0 - 80 X 25 COLOR 
579 c ; 1 1 - 80 X 25 MONOCHROME 
580 C ; NOTE : 0 O MUST BE SET WHEN THIS ADAPTER IS INSTALLED. 
581 c 
582 Co 4 VIDEO ADAPTER SWITCH SETTINGS 
583 c 
584 c ; 0 0 0 O — MONOC PRIMARY, EGA COLOR, 40X25 
585 c ; 0 0 0 1 - MONOC PRIMARY, EGA COLOR, 80X25 
586 C4} 0 0 1 0 — MONOC PRIMARY, EGA HI RES EMULATE (SAME AS 0001) 
587 c ; 0 0 1 1 - MONOC PRIMARY, EGA HI RES ENHANCED 
588 c ; 0 1 0 0 - COLOR 40 PRIMARY, EGA MONOCHROME 
589 c ; 0 1 0 1 - COLOR 80 PRIMARY, EGA MONOCHROME 
590 c 
591 oe 0 1 1 0 = MONOC SECONDARY, EGA COLOR, 40X25 
592 c ; 0 1 1 1 - MONOC SECONDARY, EGA COLOR, 80X25 
593 Coy 1 0 0 0 — MONOC SECONDARY, EGA HI RES EMULATE (SAME AS 0111) 
594 Cp 1 0 0 1 - MONOC SECONDARY, EGA HI RES ENHANCED 
595 c ; 1 0 1 0 - COLOR 40 SECONDARY, EGA MONOCHROME 
596 Cr Se 1 0 1 1 - COLOR 80 SECONDARY, EGA MONOCHROME 
597 c 
598 Co 11 0 0 — RESERVED 
599 c ; 1 1 0 1 - RESERVED 
600 c ; 11 1 0 — RESERVED 
601 c ; 111 1 - RESERVED 
602 c 
603 C poo SETUP ROUTINE FOR THIS MODULE 
604 c 
0003 605 C VIDEO_SETUP PROC FAR 
0003 EB 28 606 c MP SHORT L1 
0005 32 34 30 30 607 c DB '2400’ 
0009 36 32 37 37 33 35 608 c DB "6277356 (C)COPYRIGHT IBM 1984’ 
36 20 28 43 29 43 609 c 
4F 50 59 52 49 47 610 c 
48 54 20 49 42 4D 611 c 
20 31 39 38 34 612 c 
0026 39 2F 31 33 2F 38 613 c DB "9/13/84" 
34 614 c 
615 c 
616 C poo SET UP VIDEO VECTORS 
617 c 
002D 618 c 1 
002D Bé6é 03 619 c MOV DH, 3 
002F B2 DA 620 c MOV DL, INPUT_STATUS 
0031 EC 621 c IN AL, DX 
0032 B2 BA 622 c MOV DL, INPUT_STATUS_B 
0034 EC 623 c IN AL, DX 
0035 B2 CO 624 c MOV DL, ATTR_WRITE 
0037 BO 00 625 c MOV AL,O 
0039 EE 626 c our DX, AL 
627 c 
628 c SRLOAD DS,0 
003A 2B D2 629 ct SUB DX, DX 
003C 8E DA 630 c+ MOV DS, DX 


B6 
B2 
BO 
EE 


BO 
E8 
DO 
DO 
DO 
8A 


BO 
E8 
DO 
DO 
OA 


BO 
E8 
DO 
OA 


BO 
E8 
oA 


80 
c3 


2A 
80 
D1 
52 
B6 
8A 
5A 
80 
FE 
F6 


2E: 


06 0040 
OE 0042 
06 0108 
06 010A 
06 04A8 
OE O04AA 
06 007C 
OE 007E 
06 010C 
OE 010E 


06 0487 
009B R 
1E 0488 
OOCE R 
06 0488 
1E 0488 
O0OF3 R 
0244 R 


10 
E8 


E3 OF 


E4 01 


DDDDDADDADD 


nao nD Ww 


04 


FF A7 0128 R 


0717 R 
cooo 
0000 
0000 
0000 
0000 
0000 


631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
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CLI 
MOV WORD PTR VIDEO,OFFSET COMBO_VIDEO 
MOV WORD PTR VIDEO+2,CS 
MOV WORD PTR PLANAR_VIDEO, OF065H 
MOV WORD PTR PLANAR_VIDEO+2, OF000H 
MOV WORD PTR SAVE_PTR, OFFSET SAVE_TBL 
MOV WORD PTR SAVE_PTR+2,CS 
MOV WORD PTR EXT_PTR, OFFSET INT_1F_1 
MOV WORD PTR EXT_PTR+2,CS 
MOV WORD PTR GRX_SET, OFFSET CGDDOT 
MOV WORD PTR GRX_SET+2,CS 
STI 
poco POST FOR COMBO VIDEO CARD 
MOV INFO, 00000100B 
CALL RD_SWS 
MOV INFO_3,BL 
CALL F_BTS 
OR INFO_3,AL 
MOV BL, INFO_3 
CALL MK_ENV 
MP POST 
SKIP: 
RET 
VIDEO_SETUP ENDP 
POR_1 PROC NEAR 
out DX, AL 
PUSH AX 
POP AX 
IN AL, DX 
AND AL, 010H 
SHR AL,1 
RET 
POR_1 ENDP 
poco READ THE SWITCH SETTINGS ON THE CARD 
RD_SWS PROC NEAR 
ASSUME DS:ABSO 
MOV DH, 3 
MOV DL, MISC_OUTPUT 
MOV AL,1 
ouT DX, AL 
poco-- COULD BE 0,4,8,C 
MOV AL, ODH 
CALL POR_1 
SHR AL,1 
SHR AL,1 
SHR AL,1 
MOV BL, AL 
MOV AL,9 
CALL POR_1 
SHR AL,1 
SHR AL,1 
OR BL, AL 
MOV AL,5 
CALL POR_1 
SHR AL,1 
OR BL, AL 
MOV AL,1 
CALL POR_1 
OR BL, AL 
AND BL, OFH 
RET 


RD_SWS ENDP 


aah — OBTAIN THE FEATURE BITS FROM DAUGHTER CARD 





F_BTS PROC 
MOV 
MOV 
MOV 


OR 
RET 
F_BTS ENDP 


NEAR 


Dx, AL 


DX, AL 


; 


DL, IN_STAT_O 


AL, DX 
AL, 06 
AL,1 

AL, BL 


OH 


; 
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READ FEATURE BITS 


READ FEATURE BITS 


————— ESTABLISH THE VIDEO ENVIRONMENT, KEYED OFF OF THE SWITCHES 


MK_ENV PROC 
ASSUME 
SUB 


SAVE_TBL 
DW 


NEAR 
DS: AB: 
BH, BH 
BL, OF! 
BX,1 
DX 
DH, 3 
AH, DH 
DX 
AH,1 
AH 

AH 


SO 


'H 


WORD PTR CS: [BX + OFFSET T5] 


LABEL DWORD 


OFFSET VIDEO_PARMS 


ocooo 


eo000 


H 


PARMS 

PARMS 

PAL SAVE AREA 
PAL SAVE AREA 
ALPHA TABLES 
ALPHA TABLES 
GRAPHICS TABLES 


0000 


0000 
0000 
0000 
0000 
0000 
0000 


0173 
O17E 
O17E 
0189 
0194 
01A8 
01BC 
01C7 


01C7 
01D2 
01DD 
o1F1 
0204 
0204 
0204 
0204 


DODDDDDDD DDDDDDDD 


80 26 0410 
80 OE 0410 


nn 


80 26 0410 
80 OE 0410 


nn 


80 OE 0410 R 
B8 0007 
cD 10 


20 26 0487 R 
E8 0148 R 
E8 0168 R 


20 26 0487 R 
E8 0158 R 
E8 0168 R 


20 26 0487 R 
E8 0158 R 
E8 0168 R 


B6 03 
B2 C2 
BO 00 


F6 D4 

08 26 0487 R 
E8 0168 R 

E8 0148 R 


B6 03 
B2 C2 
BO 00 


F6 D4 

08 26 0487 R 
E8 0168 R 

E8 0158 R 


20 26 0487 R 
E8 0168 R 
E8 0148 R 


20 26 0487 R 
E8 0168 R 
E8 0158 R 


20 26 0487 R 
E8 0168 R 
E8 0158 R 


B6 03 
B2 C2 
BO 00 


F6 D4 

08 26 0487 R 
E8 0148 R 

E8 0168 R 


B6 03 
B2 C2 
BO 00 


F6 D4 

08 26 0487 R 
E8 0158 R 

E8 0168 R 


CF 


CF 


30 


757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
7721 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
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TS 


ENV_X 


ENV_X 


ENV_0 


PST_1: 
PST_2: 


PST_3: 


PST_4: 


PST_5: 


PST_6: 


PST_7: 
PST_8: 


PST_9: 


PST_A: 


PST_B: 


PST_OUT: 


MK_ENV 


DW 


DW 
DW 
DW 
DW 
DW 
DW 


LABEL 


MOV 
MOV 
MOV 
out 
NOT 


MOV 
MOV 
MOV 
out 
NOT 
OR 
CALL 
CALL 


RET 
ENDP 


(0) 


eo0000 


WORD 

OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFSET 


OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFSET 
OFFSET 


NEAR 


PST_O 
PST_1 
PST_2 
PST_3 
PST_4 
PST_5 
PST_6 
PST_7 


PST_8 
PST_9 
PST_A 
PST_B 
PST_OUT 
PST_OUT 
PST_OUT 
PST_OUT 


EQUIP_LOW, OCFH 
EQUIP_LOW, 010H 


AX, 1H 
10H 


NEAR 


EQUIP_LOW, OCFH 
EQUIP_LOW, 020H 


AX, 03H 
10H 


NEAR 


EQUIP_LOW, 030H 


AX, 07H 
10H 


INFO, AH 


ENV_X 
ENV_3 


INFO, AH 


ENV_0 
ENV_3 


INFO, AH 


ENV_0 
ENV_3 


DH, 3 


DL, MISC_OUTPUT 


AL,O 
Dx, AL 


DH, 3 


DL, MISC_OUTPUT 


AL,O 
DX, AL 


INFO, AH 


ENV_3 
ENV_0 


DH, 3 


DL, MISC_OUTPUT 


AL,O 
DX, AL 
AH 


INFO, AH 


ENV_X 
ENV_3 


DH, 3 


DL, MISC_OUTPUT 


AL,O 
Dx, AL 


7 


7 


7 


7 
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GRAPHICS TABLES 


SET 40X25 COLOR ALPHA 


SET 80X25 COLOR ALPHA 


SET MONOCHROME ALPHA 


0205 
0205 
0206 
0209 
020B 
020c 
O20F 
0211 
0212 
0213 
0216 
0217 
0218 
021B 
021D 
021E 
0220 
0223 
0223 
0225 
0226 
0227 
0227 
022A 
022B 
022c 


022c 
022c 
022D 
022F 
0231 
0232 
0233 


0234 
0235 
0236 


0236 


0236 
0237 
0238 
023A 
023C 
023E 


0241 
0242 
0243 
0244 


0244 


0244 
0247 
024Cc 
024E 
0251 
0254 
0257 
0259 
025c 
025c 
025E 
0260 
0260 
0263 
0266 
0269 
026B 
026E 
026E 
0270 
0270 
0271 
0274 
0277 
O27A 
027C 
O27F 
0281 
0283 
0285 
0287 
0289 
0289 


028A 


028E 
0292 


52 
8B 
BO 
EE 
42 
EC 


5A 
c3 


OO7F 


FB 


022C R 


FO 


0236 R 


022C R 


c7 


03 
05 


co 


90 


0001 


DO 
OE 


OCFE R 


06 0487 R 02 


883 
884 
885 
886 
887 
888 
889 
890 
g9o1 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 


IBM Enhanced Graphics Adapter 


aaaaaaaaaaNaaNaNaANaANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANAANANAANAANAANAANAA 
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jooccn oo ------- --- ----- --- -- --- --- -- 5 
; THIS ROUTINE TESTS THE CRT CARD INTERNAL DATA BUS AND IN A LIMITED 

; WAY TESTS THE CRTC VIDEO CHIP BY WRITING/READING FROM CURSOR REGISTER 

; CARRY IS SET IF AN ERROR IS FOUND 
; 
7 
; 


REGISTERS BX,SI,ES,DS ARE PRESERVED. 
REGISTERS AX,CX,DX ARE MODIFYED. 


ay 


D_PRESENCE_TST PROC NEAR 
PUSH BX ; SAVE BX 
MOV BX, O7FH ; INITIAL WORD PATTERN BYTE 
MOV DI,BX 
PUSH AX ; SAVE PORT ADDRESS 
CALL RD_CURSOR ; 
MOV SI, AX ; SAVE ORIGINAL VALUE 
POP AX ; RECOVER PORT ADDRESS 
PUSH AX ; SAVE PORT ADDRESS 
CALL WR_CURSOR ; WRITE CURSOR 
POP AX ; RECOVER PORT ADDRESS 
PUSH AX ; SAVE PORT ADDRESS 
CALL RD_CURSOR ; READ IT BACK 
CMP AX, DI ; SAME? 
POP AX 
oNZ NOT_PRESENT ; EXIT IF NOT EQUAL 
MP TST_EX 

NOT_PRESENT : 
XOR AX, AX ; SET NOT PRESENT 
POP BX 
RET 

TST_EX: 
MOV AX,1 ; SET PRESENT ON EXIT 
POP BX ; RESTORE BX 
RET 


CD_PRESENCE_TST ENDP 


7 
; MODULE NAME RD_CURSOR 

; READ CURSOR POSITION [ADDRESS] (FROM CRTC) TO AX 
; 

7 


REGISTER AX IS MODIFIED. 


PUSH DX ; SAVE REGS USED 
MOV DX, AX 
MOV AL, C_CRSR_LOC_HGH 


out DX, AL 
INC DX 
IN AL, DX 
; RETURN WITH CURSOR POS IN AX 
; RESTORE REGS USED 
POP DX 
RET 
RD_CURSOR ENDP 


; 
; MODULE NAME WR_CURSOR 

; WRITE CURSOR POSITION [ADDRESS] (TO CRTC) WITH CONTENTS OF AX 
; 

; 


ALL REGISTERS PRESERVED 


WR_CURSOR PROC NEAR 
; SAVE REGS USED 
PUSH AX 
PUSH DX 
MOV DX, AX 
MOV AH, C_CRSR_LOC_HGH ; CURSOR LOCATION HIGH INDEX 
MOV AL, O7FH ; TEST VALUE 


CALL OUT_DX 
; RETURN WITH CURSOR POS IN AX 
; RESTORE REGS USED 


POP Dx 

POP AX 

RET 
WR_CURSOR ENDP 


; 

; INITIALIZE AND START CRT CONTROLLER (6845) 
; ON COLOR GRAPHICS AND MONOCHROME CARDS 

; TEST VIDEO READ/WRITE STORAGE. 

; DESCRIPTION 

; RESET THE VIDEO ENABLE SIGNAL. 

; SELECT ALPHANUMERIC MODE, 40 * 25, B & W. 

7 READ/WRITE DATA PATTERNS TO STG. CHECK STG 
7 ADDRESSABILITY. 


ASSUME DS:ABSO,ES:ABSO 


CALL DDS 
TEST INFO, 2 
JNZ COLOR_PRESENCE_TST 


MOV AX, 03B4H 
CALL CD_PRESENCE_TST 


CMP AX, 1 
JE CONT1 
MP POD14 
CONT1: 
MOV AH, 30H ; MONOCHROME CARD INSTALLED 
MP SHORT OVER 


COLOR_PRESENCE_TST: 
MOV AX, 03D4H 
CALL CD_PRESENCE_TST 


CMP AX, 1 
JE CONT2 
MP POD14 
CONT2 : 
MOV AH, 20H ; COLOR GRAPHICS CARD INSTALLED 
OVER: 
PUSH AX ; RESAVE VALUE 
MOV BX, 0B000H ; BEG VIDEO RAM ADDR B/W CD 
MOV DX, 3B8H ; MODE CONTROL B/W 
MOV Cx, 4096 ; RAM BYTE CNT FOR B/W CD 
MOV AL,1 ; SET MODE FOR BW CARD 
CMP AH, 30H ; B/W VIDEO CARD ATTACHED? 
JE E9 ; YES - GO TEST VIDEO STG 
MOV BH, OB8H ; BEG VIDEO RAM ADDR COLOR CD 
MOV DL, OD8H ; MODE CONTROL COLOR 
MOV CH, 40H ; RAM BYTE CNT FOR COLOR CD 
DEC AL ; SET MODE TO 0 FOR COLOR CD 
EQ: ; TEST_VIDEO_STG: 
ouT DX, AL ; DISABLE VIDEO FOR COLOR CD 
MOV BP, DS: RESET_FLAG ; POD INITIALIZED BY KBD RESET 
CMP BP,1234H ; POD INITIATED BY KBD RESET? 
MOV ES, BX ; POINT ES TO VIDEO RAM STG 


029D 
029D 
029E 
O29F 
O2A2 
O2A4 
O2A7 


02A9 
O2AA 
02AB 
O2AE 
02B1 
02B3 
02B5 
02B5 
02B7 
02B7 
02B9 
02B9 
O2BA 
02BC 
02BE 
02c0 
02c2 
02c2 
02c4 
02c4 
02c5 
02C7 
02c9 
02CB 
02CB 
02CE 
o2D1 
02D3 
02D3 
02D5 
02D7 
02D9 
02D9 
02DA 


o2pDCc 
o2DC 
O2DF 
O2DF 
02E0 
02E2 
02E5 
02E8 
O2EA 
02EC 
02EC 
O2ED 
O2EE 
O2EE 
02F0 
O2F2 
O2F2 
02F3 
02F5 
O2F7 
02F9 
O2FA 


02FC 
O2FE 
0300 
0302 
0304 
0306 
0308 
030A 
030C 
030c 
030D 
030E 
0310 
0311 
0313 
0313 
0315 
0315 
0316 
0317 


74 
8E 


E8 
75 


07 
DB 


O2DF R 
2E 


bg 


00 


1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
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JE E10 ; YES -— SKIP VIDEO RAM TEST 

MOV DS, BX ; POINT DS TO VIDEO RAM STG 

ASSUME DS:NOTHING, ES: NOTHING 

CALL STGTST_CNT ; GO TEST VIDEO R/W STG 

JNE E17 ; R/W STG FAILURE - BEEP SPK 


; 

7 SETUP VIDEO DATA ON SCREEN FOR VIDEO LINE TEST. 
; DESCRIPTION 

7 ENABLE VIDEO SIGNAL AND SET MODE. 

B DISPLAY A HORIZONTAL BAR ON SCREEN. 





POP AX ; GET VIDEO SENSE SWS (AH) 
PUSH AX ; SAVE IT 

MOV AX, 7020H ; WRT BLANKS IN REVERSE VIDEO 
SUB DI,DI ; SETUP STARTING LOC 

MOV cx, 40 ; NO. OF BLANKS TO DISPLAY 
REP STOSW ; WRITE VIDEO STORAGE 








CRT INTERFACE LINES TEST 

DESCRIPTION 
SENSE ON/OFF TRANSITION OF THE VIDEO ENABLE 
AND HORIZONTAL SYNC LINES. 


POP AX ; GET VIDEO SENSE SW INFO 
PUSH AX ; SAVE IT 
CMP AH, 30H ; B/W CARD ATTACHED? 
MOV DX, O3BAH ; SETUP ADDR OF BW STATUS PORT 
JE Ell ; YES —- GO TEST LINES 
MOV DL, ODAH ; COLOR CARD IS ATTACHED 
Ell: ; LINE_TST: 
MOV AH, 8 
E12: ; OFLOOP_CNT: 
SUB cx, CX 
E13: 
IN AL, DX ; READ CRT STATUS PORT 
AND AL, AH ; CHECK VIDEO/HORZ LINE 
JNZ E14 ; ITS ON — CHECK IF IT GOES OFF 
LOOP E13 ; LOOP TILL ON OR TIMEOUT 
JMP SHORT E17 ; GO PRINT ERROR MSG 
E14: 
SUB cx, CX 
E15: 
IN AL, DX ; READ CRT STATUS PORT 
AND AL, AH ; CHECK VIDEO/HORZ LINE 
JZ E16 ; ITS ON —- CHECK NEXT LINE 
LOOP E15 ; LOOP IF OFF TILL IT GOES ON 
E17: ; CRT_ERR 
MOV Dx, 102H 
CALL ERR_BEEP ; GO BEEP SPEAKER 
JMP SHORT E18 
E16: ; NXT_LINE 
MOV cL,3 ; GET NEXT BIT TO CHECK 
SHR AH, CL 
JNZ E12 ; GO CHECK HORIZONTAL LINE 
Els: ; DISPLAY_CURSOR: 
POP AX ; GET VIDEO SENSE SWS (AH) 
JUMP SHORT POD14 





THIS SUBROUTINE PERFORMS A READ/WRITE STORAGE TEST ON 
A 16K BLOCK OF STORAGE. 


; 
; 

; 

; ENTRY REQUIREMENTS: 

; ES = ADDRESS OF STORAGE SEGMENT BEING TESTED 

i DS = ADDRESS OF STORAGE SEGMENT BEING TESTED 

; WHEN ENTERING AT STGTST_CNT, CX MUST BE LOADED WITH 
i THE BYTE COUNT. 
; EXIT PARAMETERS: 
i ZERO FLAG 
; AL 
; 

; 

; 


0 IF STORAGE ERROR (DATA COMPARE OR PARITY CHECK. 

0 DENOTES A PARITY CHECK. ELSE AL=XOR’ED BIT 
PATTERN OF THE EXPECTED DATA PATTERN VS THE 
ACTUAL DATA READ. 

AX, BX,CX,DX,DI, AND SI ARE ALL DESTROYED. 


; 
STGTST PROC NEAR 


MOV cx, 4000H ; SETUP CNT TO TEST A 16K BLK 
STGTST_CNT: 
CLD ; SET DIR FLAG TO INCREMENT 
MOV BX, CX ; SAVE CNT (4K FOR VIDEO OR 16K) 
MOV AX, OAAAAH ; GET DATA PATTERN TO WRITE 
MOV DX, OFF55H ; SETUP OTHER DATA PATTERNS TO USE 
SUB DI,DI ; DI = OFFSET 0 RELATIVE TO ES REG 
REP STOSB ; WRITE STORAGE LOCATIONS 
C3: ; sTGO1 
DEC DI ; POINT TO LAST BYTE JUST WRITTEN 
sTD ; SET DIR FLAG TO GO BACKWARDS 
C4: 
MOV SI,DI 
MOV Cx, BX ; SETUP BYTE CNT 
cs: ; INNER TEST LOOP 
LODSB ; READ OLD TEST BYTE [SI]+ 
XOR AL, AH ; DATA READ AS EXPECTED ? 
JNE C7 ; NO - GO TO ERROR ROUTINE 
MOV AL,DL ; GET NEXT DATA PATTERN TO WRITE 
STOSB ; WRITE INTO LOCATION JUST READ 
LOOP cs ; DECREMENT COUNT AND LOOP CX 
AND AH, AH ; ENDING 0 PATTERN WRITTEN TO STG? 
JZ C6éx YES —- RETURN TO CALLER WITH AL=0 
MOV AH, AL SETUP NEW VALUE FOR COMPARE 


MOVE NEXT DATA PATTERN TO DL 


z 
E 
z 


READING ZERO PATTERN THIS PASS ? 
JNZ cé CONTINUE TEST SEQUENCE TILL 0 
MOV DL, AH ELSE SET 0 FOR END READ PATTERN 
JUMP c3 AND MAKE FINAL BACKWARDS PASS 
Cé: 
CLD ; SET DIR FLAG TO GO FORWARD 
INC DI ; SET POINTER TO BEG LOCATION 
JZ c4 ; READ/WRITE FORWARD IN STG 
DEC DI ; ADJUST POINTER 
JMP c3 ; READ/WRITE BACKWARD IN STG 
Céx: 
MOV AL, 000H ; AL=0 DATA COMPARE OK 
C7: 
CLD ; SET DIRECTION FLAG BACK TO INC 
RET 


STGTST ENDP 


EGA CRT ATTACHMENT TEST 


7 
; 
7 
; 1. INIT CRT TO 40X25 — BW ****SET TO MODE**** 

; 2. CHECK FOR VERTICAL AND VIDEO ENABLES, AND CHECK 
; TIMING OF SAME 

; 3. CHECK VERTICAL INTERRUPT 

; 4. CHECK RED, BLUE, GREEN, AND INTENSIFY DOTS 
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= AOAC 

= C460 

= 00c8 

= 8D99 

= B862 

= 015E 

= 015E 

= 0043 

= 0040 
0317 
0317 83 
031A 8B 
031C E8 
031F BO 
0321 E6 
0323 BO 
0325 E6 
0327 F6 
032C 74 
032E E8 
0331 C7 
0336 C7 
033B C7 
0340 B2 
0342 B4 
0344 BO 
0346 E8 
0349 B2 
034B EB 
034D 
034D E8 
0350 E8 
0353 73 
0355 B2 
0357 B4 
0359 BO 
035B E8 
O35E C7 
0363 EB 
0366 
0366 C7 
036B 
036B C7 
0370 C7 
0375 B2 
0377 
0377 B8 
037A CD 
037C 2B 
037E 
O37E EC 
O37F A8 
0381 75 
0383 E2 
0385 B3 
0387 E9 
038A 
038A BO 
038C E6 
038E 2B 
0390 33 
0392 
0392 EC 
0393 A8 
0395 74 
0397 E2 
0399 B3 
039B E9 
039E 
039E 2B 
03A0 
03A0 EC 
O3A1l A8 
03A3° #74 
O3A5 A8 
03A7 75 
O3A9 E2 
03AB B3 
O3AD E9 
03B0 
03B0 B3 
03B2 E9 
03B5 
03B5 B3 
03B7 E9 
O3BA 
O3BA A8 
Oo3BC 75 
03BE 
O3BE EC 
O3BF A8 
03c1 El 
03c3 E3 


06 0487 R 02 


46 02 015E 
46 04 8D99 
46 06 B862 


46 02 015E 
06 90 


46 02 00c8 


46 04 AOAC 
46 06 C460 
DA 


os 
F2 


o1 
FB 
FO 


1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
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INIT TO 40X25 -— COLOR/MONO ****SET TO MODE**** 


; — NOMINAL TIME IS B286H FOR 60 HZ. 
i; — NOMINAL TIME IS A2FEH FOR 50 HZ. 








MAX_VERT_COLOR 
MIN_VERT_COLOR 


CENAB_PER_FRAME 
MAX_VERT_MONO 


MIN_VERT_MONO 


EENAB_PER_FRAME 
MENAB_PER_FRAME 


TIM_CTL 
TIMERO 


PoD14 


COLOR_EGA_V: 
CALL 
CALL 


COLOR_V: 


MOV 

BRST_COLOR_V: 
MOV 
MOV 
MOV 


COMMON : 

MOV 

INT 

SUB 
(Sass LOOK FOR 


POD14_1: 


; GOT VERTICAL 


POD14_2: 
MOV 
our 


SUB 
os WAIT FOR 
XOR 
POD14_25: 
IN 


7 - NOW START LOOKING FOR ENABLE TRANSITIONS 





POD14_3: 


POD14_4: 


POD14_4a: 
MOV 
oMP 

POD14_48: 
MOV 
oMP 


EQU OAOACH 
EQU 0Cc460H 
EQU 200 
EQU 08D99H 
EQU 0B862H 
EQU 350 
EQU 350 
EQU 043H 
EQU 040H 
NEAR 

SP, OAH 

BP, SP 


DS:ABSO,ES:ABSO 
DDS 
AL,00110000B 


TIM_CTL, AL 
AL, 00H 
TIMERO, AL 
INFO, 2 
COLOR_EGA_V 
ENV_3 


WORD PTR[BP] [2] ,MENAB_PER_FRAME 


WORD PTR[BP] [4] ,MAX_VERT_MONO 
WORD PTR[BP] [6] ,MIN_VERT_MONO 
DL, CRTC_ADDR_B 

AH, C_HRZ_DSP 

AL, 27H 

OUT_Dx 

DL, INPUT_STATUS_B 

SHORT COMMON 


ENV_X 
BRST_DET 
COLOR_V 

DL, CRTC_ADDR 
AH,1 

AL, 20 

OUT_DX 


WORD PTR[BP] [2] ,EENAB_PER_FRAME 


BRST_COLOR_V 


WORD PTR[BP] [2],CENAB_PER_FRAME 


WORD PTR[BP] [4] ,MAX_VERT_COLOR 
WORD PTR[BP] [6] ,MIN_VERT_COLOR 
DL, INPUT_STATUS 


AX, 0500H 
10H 
cx, CX 


VERTICAL 


AL, DX 
AL, 00001000B 
PoD14_2 
POD14_1 

BL, 00 
POD14_ERR 


- START TIMER 


AL,O 
TIMERO, AL 


BX, BX 
VERTICAL TO GO AWAY 
CX, CX 


AL, DX 
AL, 00001000B 
PoD14_3 
POD14_25 

BL, 01H 
POD14_ERR 


CX, CX 


AL, DX 
AL, 00000001B 
PoD14_5 

AL, 00001000B 
POD14_75 
POD14_4 

BL, 02H 
POD14_ERR 


BL, 03H 
POD14_ERR 


BL, 04H 
POD14_ERR 


7 


7 


MAX TIME FOR VERT/VERT 
(NOMINAL + 109) 

MIN TIME FOR VERT/VERT 
(NOMINAL - 104) 

NUM OF ENABLES PER FRAME 

MAX TIME FOR VERT/VERT 
(NOMINAL + 104) 

MIN TIME FOR VERT/VERT 
(NOMINAL - 104) 

ENHANCED ENABLES PER FRAME 

NUM OF ENABLES PER FRAME 


8253 TIMER CONTROL PORT 
8253 TIMER/CNTER 0 PORT 


RESERVE 5 WORDS ON STACK 
INIT SCRATCH PAD POINTER 


SET TIMER 0 TO MODE 0 


SEND FIRST BYTE TO TIMER 


SET UP IN MONOCHROME 
NUM.OF FRAMES FOR MONO 
MAX TIME FOR VERT/VERT 
MIN TIME FOR VERT/VERT 
MONO CRTC REG 


HORIZ. TOTAL DIPLAY 
TO 40 COL 
3BA 


SET UP IN 40X25 COLOR 
ENHANCED MODE 

NO, 40X25 

BRST MODE ONLY 

HRZ DSP END 

MODIFY FOR TEST ONLY 


NUM.OF FRAMES FOR COLOR 


NUM.OF FRAMES FOR COLOR 


MAX TIME FOR VERT/VERT 
MIN TIME FOR VERT/VERT 
SET ADDRESSING TO VIDEO 
ATTR STATUS 


SET TO VIDEO PAGE 0 


GET STATUS 

VERTICAL THERE YET? 
CONTINUE IF IT IS 

KEEP LOOKING TILL COUNT 
EXHAUSTED 

NO VERTICAL 


SEND 2ND BYTE TO TIMER TO 
START IT 
ENIT. ENABLE COUNTER 


GET STATUS 

VERTICAL STILL THERE 
CONTINUE IF ITS GONE 
KEEP LOOKING TILL COUNT 
EXHAUSTED 

VERTICAL STUCK ON 


GET STATUS 

ENABLE ON YET? 

GO ON IF IT IS 
VERTICAL ON AGAIN? 
CONTINUE IF IT IS 
KEEP LOOKING IF NOT 


ENABLE STUCK OFF 


VERTICAL STUCK ON 


ENABLE STUCK ON 


pos--= MAKE SURE VERTICAL WENT OFF WITH ENABLE GOING ON 


POD14_5: 
TEST 
INZ 
os NOW WAIT 
POD14_6: 
IN 
TEST 
LOOPE 
JCXZ 


AL, 00001000B 
POD14_4A 
FOR ENABLE TO GO OFF 


AL, DX 
AL, 00000001B 
POD14_6 
POD14_48 


VERTICAL OFF? 
Go ON IF IT IS 
(ERROR IF NOT) 


GET STATUS 

ENABLE OFF YET? 
KEEP LOOKING IF NOT 
YET LOW 


}-S=-— ENABLE HAS TOGGLED, BUMP COUNTER AND TEST FOR NEXT VERTICAL 
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03c5 1261 Cc pPoD14_7: 
03c5 43 1262 c INC BX ; BUMP ENABLE COUNTER 
03c6 74 04 1263 c oz POD14_75 ; IF COUNTER WRAPS, 
1264 c ; SOMETHING IS WRONG 
03c8 A8 08 1265 c TEST AL, 00001000B ; DID ENABLE GO LOW 
1266 c ; BECAUSE OF VERTICAL 
O3CA 74 D2 1267 c oz POD14_3 ; IF NOT, LOOK FOR ANOTHER 
1268 c ; ENABLE TOGGLE 
1269 C poo HAVE HAD COMPLETE VERTICAL-VERTICAL CYCLE, NOW TEST RESULTS 
03cc 1270 C POD14_75: 
03cc BO 00 1271 c MOV AL, 00 ; LATCH TIMERO 
03CE E6 43 1272 c out TIM_CTL, AL 
03D0 3B 5E 02 1273 c CMP BX,WORD PTR[BP] [2] ; NUMBER OF ENABLES BETWEEN 
1274 c ; VERTICALS 0.K.? 
03D3 74 04 1275 c JE POD14_8 
03D5 B3 05 1276 c MOV BL, 05H 
03D7 EB 6F 1277 c MP SHORT POD14_ERR 
03D9 1278 Cc Pop14_8: 
03D9 E4 40 1279 c IN AL, TIMERO ; GET TIMER VALUE LOW 
03DB 8A EO 1280 c MOV AH, AL ; SAVE IT 
03DD 90 1281 c NOP 
03DE E4 40 1282 c IN AL, TIMERO ; GET TIMER HIGH 
03EO0 86 EO 1283 c XCHG AH, AL 
03E2 90 1284 c NOP 
03E3 90 1285 c NOP 
03E4 3B 46 04 1286 c CMP AX,WORD PTR[BP] [4] ; MAXIMUM VERTICAL TIMING 
03E7 7D 04 1287 c JGE POD14_9 
03E9 B3 06 1288 c MOV BL, 06H 
03EB EB 5B 1289 c MP SHORT POD14_ERR 
03ED 1290 Cc pPop14_9: 
03ED 3B 46 06 1291 c CMP AX,WORD PTR[BP] [6] ; MINIMUM VERTICAL TIMING 
03FO 7E 04 1292 c LE POD14_10 
03F2 B3 07 1293 c MOV BL, 07H 
O03F4 EB 52 1294 c MP SHORT POD14_ERR 
1295 c 
1296 C poo SEE IF RED, GREEN, BLUE AND INTENSIFY DOTS WORK 
1297 c 
1298 c ; — FIRST, SET A LINE OF REVERSE VIDEO, INTENSIFIED BLANKS INTO BUFFER 
03F6 1299 Cc PoD14_10: 
03F6 B8 O9DB 1300 c MOV AX, O9DBH ; WRITE CHARS, BLANKS 
03F9 BB OOOF 1301 c MOV BX, 0OOOFH ; PAGE 0, REVERSE VIDEO, 
1302 c ; HIGH INTENSITY 
03FC B9 0050 1303 c MOV cx, 80 ; 80 CHARACTERS 
O3FF CD 10 1304 c INT 10H 
0401 EC 1305 c IN AL, DX 
0402 52 1306 c PUSH DX ; SAVE INPUT STATUS 
0403 B2 co 1307 c MOV DL, ATTR_WRITE ; ATTRIBUTE ADDRESS 
0405 B4 OF 1308 c MOV AH, OFH ; PALETTE REG 'F’ 
0407 BO 3F 1309 c MOV AL, 03FH ; TEST VALUE 
0409 E8 OD1I5 R 1310 c CALL OUT_DX ; VIDEO STATUS MUX 
040c B8 O000F 1311 c MOV AX, OFH ; START WITH BLUE DOTS 
O40F 5A 1312 c POP DX 
0410 1313 Cc PoD14_13: 
0410 50 1314 c PUSH AX ; SAVE 
0411 52 1315 c PUSH DX ; SAVE INPUT STATUS 
0412 B2 CO 1316 c MOV DL, ATTR_WRITE ; ATTRIBUTE ADDRESS 
0414 B4 32 1317 c MOV AH, 32H ; COLOR PLANE ENABLE 
0416 E8 ODI5R 1318 c CALL OUT_Dx ; VIDEO STATUS MUX 
0419 5A 1319 c POP Dx ; RECOVER INPUT STATUS 
041A 58 1320 c POP AX 
041B 2B C9 1321 c SUB CX, CX 
1322 C poo SEE IF DOT COMES ON 
041D 1323 Cc PoD14_14: 
041D EC 1324 c IN AL, DX ; GET STATUS 
041E A8 30 1325 c TEST AL, 00110000B ; DOT THERE? 
0420 75 09 1326 c oNZ POD14_15 ; LOOK FOR DOT TO TURN OFF 
0422 E2 F9 1327 c LOOP POD14_14 ; CONTINUE TEST FOR DOT ON 
0424 B3 10 1328 c MOV BL, 10H 
0426 OA DC 1329 c OR BL, AH ; OR IN DOT BEING TESTED 
0428 EB 1E 90 1330 c MP POD14_ERR ; DOT NOT COMING ON 
1331 C poo SEE IF DOT GOES OFF 
042B 1332 Cc pop14_15: 
042B 2B C9 1333 c SUB CX, CX 
042D 1334 Cc POD14_16: 
042D EC 1335 c IN AL, DX ; GET STATUS 
042E A8 30 1336 c TEST AL, 00110000B ; IS DOT STILL ON? 
0430 74 08 1337 c JE POD14_17 ; GO ON IF DOT OFF 
0432 E2 F9 1338 c LOOP POD14_16 ; ELSE,KEEP WAITING FOR 
1339 c ; DOT TO GO OFF 
0434 B3 20 1340 c MOV BL, 20H 
0436 OA DC 1341 c OR BL, AH ; OR IN DOT BEING TESTED 
0438 EB OE 1342 c MP SHORT POD14_ERR 
1343 c 
1344 Cc po-ce ADJUST TO POINT TO NEXT DOT 
1345 c 
043A 1346 Cc PoD14_17: 
043A FE C4 1347 c INC AH 
043c 80 FC 30 1348 c CMP AH, 030H ; ALL 3 DOTS DONE? 
043F 74 25 1349 c JE POD14_18 ; GO END 
0441 80 CC OF 1350 c OR AH, OFH ; MAKE OF,1F,2F 
0444 8A C4 1351 c MOV AL, AH 
0446 EB C8 1352 c MP POD14_13 ; GO LOOK FOR ANOTHER DOT 
0448 1353 C POD14_ERR: 
0448 B9 0006 1354 c MOV CX, 6 
044B BA 0103 1355 c MOV DX, 0103H ; ONE LONG AND THREE SHORT 
044E E8 06C8 R 1356 c CALL ERR_BEEP 
0451 83 C4 OA 1357 c ADD SP, OAH ; BALANCE STACK 
0454 BO 36 1358 c MOV AL, 00110110B ; RE-INIT TIMER 0 
0456 E6 43 1359 c out TIM_CTL, AL 
0458 2A CO 1360 c SUB AL, AL 
045A E6 40 1361 c ouT TIMERO, AL 
045c 90 1362 c NOP 
045D 90 1363 c NOP 
045E E6 40 1364 c out TIMERO, AL 
0460 BD 0001 1365 c MOV BP,1 
0463 E9 0091 R 1366 c MP SKIP 
1367 c ASSUME DS:ABSO 
0466 1368 Cc pPop14_18: 
0466 E8 OCFER 1369 c CALL DDS 
0469 B8 0500 1370 c MOV AX, 0500H ; SET TO VIDEO PAGE 0 
046C CD 10 1371 c INT 10H 
046E BO 36 1372 c MOV AL, 00110110B ; RE-INIT TIMER 0 
0470 E6 43 1373 c out TIM_CTL, AL 
0472 2A co 1374 c SUB AL, AL 
0474 E6 40 1375 c out TIMERO, AL 
0476 90 1376 c NOP 
0477. 90 1377 c NOP 
0478 E6 40 1378 c out TIMERO, AL 
047A 83 C4 OA 1379 c ADD SP, OAH ; REMOVE SCRATCH PAD 
047D BD 0000 1380 c MOV BP,0 ; MAKE BP NON ZERO 
0480 1381 c pop14 ENDP 
1382 c 
1383 C poo TEST STORAGE 
1384 c 
0480 1385 C MEM_TEST: 
0480 15 1386 c PUSH DS 
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0481 


0484 
0489 
048B 
0490 
0493 
0498 
049B 
049D 
049D 
04A2 
O4A7 
O4AA 
O4AA 
04aAC 
O4AF 
04B1 


04B4 
04B6 
04B8 
04BD 
04c2 
04c4 
04C6 
04c9 
04cc 
04CE 
o4pD1 
04D4 
04D5 
04D7 
04D8 
O4DA 
04DD 
04E0 
04E3 
04E6 
04E8 
04EB 
04EB 
O4EE 
O4F1 
04F3 
O4F6 
O4F6 
O4F7 
O4F9 
O4FC 
O4FF 
0501 
0504 
0507 
0508 
050A 
050B 
050D 
0510 
0513 
0518 
051B 
051E 
0520 
0523 
0523 
0526 
0529 
052B 
052E 
052E 
O52F 
0531 
0534 
0537 
0538 
053A 
053D 
0540 
0542 
0543 
0545 
0548 
054B 
0550 
0553 
0556 
0558 
055B 
055B 
O55E 
0561 
0563 
0566 
0566 
0567 
0569 
o56c 
O56F 
0571 
0574 
0577 
0578 
O57A 
057B 
057D 
0580 
0583 
0588 
058B 
O58E 
0590 
0593 
0596 
0598 
0599 
059C 
059C 
059D 
O059E 


O5A1 
O5A5 
O5A7 
O5A9 
O5AA 


OCFE R 


06 0487 R 


26 0410 R 
OE 0410 R 
000E 


10 
EC 06 
EC 
A000 


Ds 
co 
46 02 0000 
46 04 0000 


co 

3200 

op15 R 

46 04 0000 


co 

3200 

op15 R 

46 04 0000 
O68F R 

FC 00 

3D 

O5D9 R 

FC 00 

35 


0000 


OCFE R 
8B 5C 02 
06 

EB 


05 


02 


30 


60 


CF 
20 


1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
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CALL 
ASSUME 
TEST 
JZ 

OR 


D_OUT_M: 


MOV 
CALL 
MOV 
CALL 
CMP 
NZ 
CALL 
CMP 
oNZ 
PUSH 
MOV 

EGA_MEM_EXIT: 
POP 
POP 
CALL 
ASSUME 
MOV 
MOV 
SHR 
DEC 
MOV 


DDS 
DS:ABSO 

INFO, 2 
D_COLOR_M 
EQUIP_LOW, 030H 
AX, OFH 

INFO, 060H 

AX, OFH 

SHORT D_OUT_M 


EQUIP_LOW, OCFH 
EQUIP_LOW, 020H 
AX, OEH 


10H 

SP,6 

BP, SP 

AX, OAOQOOH 

DS: NOTHING, ES : NOTHING 
DS, AX 

ES, AX 

WORD PTR[BP][2],0 
WORD PTR[BP][4],0 
DH, 3 

DL, SEQ_ADDR 

AX, 0201H 

OUT_Dx 

DL, GRAPH_ADDR 

AX, 0400H 

OUT_Dx 

DX 

DL, ATTR_READ 

AL, DX 

DL, ATTR_WRITE 

AX, 3200H 

OUT_DX 

HOW_BIG 

AH,O 

AAL 
EGA_MEM_ERROR 


MEMORY_OK 
AH,O 

AA2 
EGA_MEM_ERROR 


DX 
DL, SEQ_ADDR 

AX, 0202H 

OUT_Dx 

DL, GRAPH_ADDR 

AX, 0401H 

OUT_DX 

DX 

DL, ATTR_READ 

AL, DX 

DL, ATTR_WRITE 

AX, 3200H 

OUT_DX 

WORD PTR [BP] [4],0 
HOW_BIG 

AH,O 

AA3 

EGA_MEM_ERROR 


MEMORY_OK 
AH,O 

AA 
EGA_MEM_ERROR 


DX 
DL, SEQ_ADDR 

AX, 0204H 

OUT_DX 

Dx 

DL, GRAPH_ADDR 

AX, 0402H 

OUT_DX 

DL, ATTR_READ 

AL, DX 

DL, ATTR_WRITE 

AX, 3200H 

OUT_DX 

WORD PTR[BP][4],0 
HOW_BIG 

AH,O 

AAS 
EGA_MEM_ERROR 


MEMORY_OK 
AH,O 

AAG 
EGA_MEM_ERROR 


DX 
DL, SEQ_ADDR 
AX, 0208H 
OUT_DX 

DL, GRAPH_ADDR 
AX, 0403H 
OUT_DX 

DX 

DL, ATTR_READ 
AL, DX 

DL, ATTR_WRITE 
AX, 3200H 
OUT_DX 

WORD PTR[BP][4],0 
HOW_BIG 

AH,O 
EGA_MEM_ERROR 
MEMORY_OK 
AH,O 
EGA_MEM_ERROR 
BP 

BP,0 


sI 
DX 

DDS 

DS:ABSO 

BX,WORD PTR SS: [SI] [2] 
CL, 06H 

BX, CL 

BX 

CL, 05H 


August 2, 1984 


INTERNAL COLOR MODE 
TEST IN COLOR 


RESERVE 3 WORDS ON STACK 
SET BP 

PUT BUFFER ADDRESS IN AX 
SET UP SEG REGS TO POINT 
TO BUFFER AREA 


INITIALIZE 
INITIALIZE 


ADDRESS READ MAP SELECT 
SET UP ATTRIBUTE 
ATTRIBUTE WRITE ADDRESS 


GO FIND AMOUNT OF MEMORY 


GO TEST IT 


ADDRESS OF READ MAP 

SET UP ATTRIBUTE 
ATTRIBUTE WRITE ADDRESS 
INITIALIZE 


GO FIND AMOUNT OF MEMORY 


GO TEST IT 


ADDRESS OF READ MAP 


SET UP ATTRIBUTE 
ATTRIBUTE WRITE ADDRESS 


INITIALIZE 
GO FIND AMOUNT OF MEMORY 


GO TEST IT 


ADDRESS OF READ MAP 


SET UP ATTRIBUTE 
ATTRIBUTE WRITE ADDRESS 


INITIALIZE 
GO FIND AMOUNT OF MEMORY 


GO TEST IT 

SAVE SCRATCH PAD POINTER 
RESET BP FOR XT 

RESTORE 

SET DATA SEGMENT 

GET EGA MEMORY SIZE 


DIVIDE BY 64 TO GET 
NUMBER OF 64KB BLOCKS 


13 


O5ac 
O5AE 


O5B1 
O5B6 


O5BA 
O5BF 
05c3 
05c6 
o5c9 
O5CA 
o5cD 
O5cD 
O5D0 
05D3 
05D4 
O5D7 


O5D9 
O5D9 
o5Dc 
O5DE 
O5E0 
05E3 
O5E5 
O5E7 
O5E9 
O5EC 
OS5EF 
O5F1 
O5F1 
O5F4 
O5F7 
O5FA 
O5FA 
O5FB 


O5FB 
O5FB 
O5FC 
O5FD 


OSFF 
0601 


0604 
0608 
o60c 
060E 
0610 


0612 
0616 
0618 
0618 
061A 
o61c 
061E 
0620 
0622 
0624 


0626 
0628 
062B 
062D 
0630 


0632 
0633 
0634 
0635 
0637 
0639 
0639 
063A 
063C 
063E 
0640 
0641 
0643 
0645 
0646 
0647 
0648 
064A 
064A 
064B 
064D 
O64F 


0650 


0652 
0653 


0654 
0655 
0657 
0657 
0658 
065A 
o65c 
O65E 
0660 
0660 
0662 
0664 


D3 
80 


E3 
E3 60 


26 0487 R 9F 


1E 0487 R 


OE 0487 R 04 
1E 0488 R 
OOF3 R 

c4 06 


oo91 R 


0103 
06c8 R 


0001 
c3 


FF 


co 


OCFE R 


1E 0472 R 
FB 1234 
c2 

DA 

62 


FB 4321 
5c 


05 
05 
c4 
40 
c4 
c4 
F2 


EQ 
AASS 
Ds 
55AA 


F3/ AB 


FE 


cD 


co 
04 
FQ 
11 


cs 
E4 
ED 


1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
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SHL 
AND 


AND 
OR 


OR 
MOV 
CALL 
ADD 
POP 
MP 

EGA_MEM_ERROR: 
MOV 
CALL 
PUSH 


jase THIS ROUTINE FINDS AMOUNT OF MEMORY GOOD 


MEMORY_OK 
MOV 
MOV 
MOV 
MOV 
MOV 
SUB 
SHL 
CALL 
CMP 
oNZ 

MEMORY_OK_EX: 
MOV 


MEMORY_OK_ERR: 
RET 
MEMORY_OK 


BX, CL 
BL, 01100000B 


INFO, 10011111B 
INFO, BL 


INFO, 00000100B 
BL, INFO_3 
MK_ENV 

SP,6 

DS 

SKIP 


DX, 0103H 
ERR_BEEP 

BP 

BP,1 
EGA_MEM_EXIT 


PROC NEAR 
BX, 0A000H 

DS, BX 

ES, BX 

AX,WORD PTR[BP] [4] 
CH, AL 

CL,CL 

cx,1 

PODSTG 

AH,O 
MEMORY_OK_ERR 


AX,WORD PTR[BP] [4] 
WORD PTR[BP] [2],AX 
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ISOLATE BITS 5 AND 6 


04H SET 3XX ACTIVE 


RESTORE STACK 
GO TO END 
ONE LONG AND THREE SHORT 


SAVE SCRATCH PAD POINTER 
INDICATE ERROR FOR XT 


SET PTR. TO BUFFER SEG 
SET SEG.REG. 


SET COUNT FOR 32K WORDS 
SET AMOUNT OF BUFFER 
TO BE TESTED 

MULTIPLY BY TWO 


TEST FOR ERROR 
IF ERROR GO PRINT IT 


AMOUNT OF MEMORY FOUND 
AMOUNT OF MEMORY GOOD 


THIS ROUTINE PERFORMS A READ/WRITE TEST ON A BLOCK OF STORAGE 


(MAX. SIZE = 
RETURN. 
ON ENTRY: 


32KW) . 


IF "WARM START", 


ES = ADDRESS OF STORAGE TO BE TESTED 





DS 


CX = WORD COUNT OF STORAGE BLOCK TO BE TESTED 
= 8000H (32K WORDS) ) 


; 
7 

; 

7 

; 

7 

; 

7 

; (MAX. 
; ON EXIT: 

; ZERO FLAG 
7 

; 

PB 


AX, BX,CX,DX,DI,SI ARE ALL DESTROYED 


ODSTG PROC 
PUSH 
CLD 
SUB 


PODSTG_1: 
MOV 
MOV 
XOR 
oNZ 
INC 
MOV 
NZ 


MOV 

PODSTG_2: 
LODSW 
XOR 
oNZ 
MOV 
sTOSW 
LOOP 
MOV 
CLD 
INC 
INC 
MOV 

PODSTG_3: 
LODSW 
XOR 
oNZ 
sTOSW 


LOOP 


sTD 
DEC 


DEC 
MOV 

PODSTG_4: 
LODSW 


PODSTG_ERRO: 
MOV 
XOR 
OR 


ADDRESS OF STORAGE TO BE TESTED 


OFF IF STORAGE ERROR 





NEAR 
BP 


DI,DI 
AX, AX 


DDS 
DS:ABSO 

BX, DS: RESET_FLAG 
BX, 1234H 

DX, ES 

DS, DX 

PODSTG_5 


BX, 4321H 
PODSTG_5 


[DI],AL 

AL, [DI] 

AL, AH 
PODSTG_ERRO 
AH 

AL, AH 
PODSTG_1 


BP,CX 
AX, OAA55H 
BX, AX 
DX, O55AAH 
sTOSW 


DI 
DI 


SI,DI 
CX, BP 


AX, BX 
PODSTG_ERRO 
AX, DX 


PODSTG_2 
CX, BP 


SI 
SI 
DI,SI 


AX, DX 
PODSTG_ERRO 


PODSTG_3 


sr 


sI 
CX, BP 


AX, AX 
PODSTG_ERRO 
PODSTG_4 

SHORT PODSTG_ERR2 


FILL BLOCK WITH 0000 AND 





SET DIR TO INCREMENT 

SET DI=0000 REL TO START 
OF SEGMENT 

INITIAL DATA PATTERN FOR 
00O-FF TEST 


WARM START? 


RESTORE DS 

GO DO FILL WITH 0000 
IF WARM START 

DCP WARM START? 

DO FILL IF SO 


WRITE TEST DATA 

GET IT BACK 

COMPARE TO EXPECTED 
ERROR EXIT IF MISCOMPARE 
FORM NEW DATA PATTERN 


LOOP TILL ALL 256 DATA 
PATTERNS DONE 

SAVE WORD COUNT 

LOAD DATA PATTERN 


LOAD OTHER DATA PATTERN 
FIL WORDS FROM LOW TO 
HIGH WITH AAAA 

POINT TO LAST WORD 
WRITTEN 

SET DIR FLAG TO GO DOWN 
SET INDEX REGS. EQUAL 
RECOVER WORD COUNT 

GO FROM HIGH TO LOW 

GET WORD FROM MEMORY 
EQUAL WHAT S/B THERE? 
GO ERROR EXIT IF NOT 
GET 55 DATA PATTERN AND 
STORE IN LOC JUST READ 
LOOP TILL ALL BYTES DONE 
RECOVER WORD COUNT 

BACK TO INCREMENT 

ADJUST PTRS 


LOW TO HIGH DOING WORDS 
GET A WORD 

SHOULD COMPARE TO DX 
GO ERROR IF NOT 

WRITE 0000 BACK TO LOC 
JUST READ 

LOOP TILL DONE 


BACK TO DECREMENT 

ADJUST POINTER DOWN TO 
LAST WORD WRITTEN 

GET WORD COUNT 

GET WORD 

= TO 0000 

ERROR IF NOT 

LOOP TILL DONE 

SAVE BITS IN ERROR 


HIGH BYTE ERROR? 


14 


0666 
0668 
066A 
066A 
o66c 
O66E 
0671 
0671 
0672 
0673 
0674 


0674 
0675 
0676 
0678 
O67A 
067D 
0680 
0681 
0682 
0684 


0687 
068B 
068D 
O68F 


O68F 
O68F 
0691 
0693 
0693 
0695 
0697 
069A 
o69C 
O69F 
O6A1 
O6A4 
O6A6 
O6A8 
O6AB 
O6AD 
O6B1 
06B4 
06B7 
O6B9 
oé6BC 
oé6BC 
O6BF 
o6c1 
o6c1 
o6c4 
06C7 
06C7 
o6c8 


F3/ AB 


E8 


89 
8E 
EB 


OEB3 
10EF 
1157 
1186 
119D 
12A4 
150E 
15B0 
17D2 
1899 
18DD 
1A75 
1BCB 
1C9F 
1p01 
1D85 
1pc5 
1F98 
20BF 
2118 


OCFE R 


1E 0472 R 
DA 
E2 


OCFE R 


0D20 R 


FE 


FE 


DDDDDDDDDDDDDDDDDDDD 


1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
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JZ 
MOV 
PODSTG_ERR1: 
OR 
oz 
ADD 
PODSTG_ERR2 : 
POP 
CLD 
RET 
PODSTG_5: 


PUSH 


PUSH 
MOV 


PODSTG ENDP 


PODSTG_ERR1 
AH, 1 


CL,CL 
PODSTG_ERR2 
AH,2 


BP 


AX 
DX 

DH, 3 

DL, SEQ_ADDR 

AX, 020FH 

OUT_DX 

DX 

AX 

sTOSW 

DDS 

DS:ABSO 

DS: RESET_FLAG, BX 
DS, DX 
PODSTG_ERR2 


,-SoS= DETERMINE SIZE OF BUFFER 


HOW_BIG 
MOV 
SUB 

FILL_LOOP : 
MOV 
SUB 
MOV 
MOV 
MOV 
MOV 


CMP 
oNZ 
MP 

HOW_BIG_END: 
CMP 
oz 


MOV 

HB_ERROR_EXIT: 
RET 

HOW_BIG 


PROC NEAR 
DX,DS 
BX, BX 


ES,DX 
DI,DI 

AX, OAAS5H 
CX, AX 

ES: [DI], AX 
AL, OFH 

AX, ES: [DI] 
AX, CX 
HOW_BIG_END 
CX, 2000H 


DX, 0400H 
BX, 16 

DH, OBOH 
FILL_LOOP 
HOW_BIG_END 


DH, OAOH 
HB_ERROR_EXIT 


WORD PTR[BP] [4],BX 
AX, 0 
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SET HIGH BYTE ERROR 


LOW BYTE ERROR? 


SET DIR FLAG BACK TO INC 
RETURN TO CALLER 

SIMPLE FILL WITH 0000 ON 
WARM-START 

SAVE 

SAVE VALUE 


SEQ_ADDR REGISTER 


Do IT 
RESTORE 
RESTORE 


RESTORE DS 
AND EXIT 


SET PNTR TO BUFFER LOC 
BASIC COUNT OF 00K 


SET SEG. REG 
TEST PATTERN 


SEND TO MEMORY 

PUT SOMETHING IN AL 

GET PATTERN FROM MEMORY 
COMPARE PATTERNS 

GO END IF NO COMPARE 
SET COUNT FOR 8K WORDS 
FILL 8K WORDS 

POINT TO NEXT 16K BLOCK 
BUMP COUNT BY 16KB 


AREA YET ?(BO000H) 


1ST 16KB OK 


SAVE BUFFER FOUND 


7 

;THIS PROCEDURE WILL ISSUE ONE LONG TONE (3 SEC) AND ONE OR 

;MORE SHORT TONES (1 SEC) TO INDICATE A FAILURE ON THE PLANAR 
;BOARD ,A BAD RAM MODULE,OR A PROBLEM WITH THE CRT. 

;ENTRY REQUIREMENTS: 

; DH=NUMBER OF LONG TONES TO BEEP 

7 DL=NUMBER OF SHORT TONES TO BEEP. 


i 
ERR_BEEP PROC 
PUSHF 
CLI 
PUSH 
CALL 
ASSUME 
OR 
JZ 
Gl: 
MOV 
CALL 
G2: 
LOOP 
DEC 
JNZ 
G3: 
MOV 
CALL 
G4: 
LOOP 
DEC 
JNZ 
G5: 
LOOP G5 
G6: 
LOOP G6 
POP 
POPF 
RET 
ERR_BEEP 


SUBTTL 


T2 LABEL 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 
DW 


T2L EQU 


DS 


ENDP 


WORD 

OFFSET AHO 
OFFSET AH1 
OFFSET AH2 
OFFSET AH3 
OFFSET AH4 
OFFSET AH5 
OFFSET AH6 
OFFSET AH7 
OFFSET AH8 
OFFSET AH9 
OFFSET AHA 
OFFSET AHB 
OFFSET AHC 
OFFSET AHD 
OFFSET AHE 
OFFSET AHF 
OFFSET AH10 
OFFSET AH11 
OFFSET AH12 
OFFSET AH13 
$-T2 


SAVE FLAGS 
DISABLE SYSTEM INTS 


ANY LONG TONES TO BEEP 
NO, DO THE SHORT ONES 
LONG BEEP 

COUNTER FOR BEEPS 

DO THE BEEP 


DELAY BETWEEN BEEPS 
ANY MORE TO DO 
Do IT 


COUNTER FOR A SHORT BEEP 
Do IT 


DELAY BETWEEN BEEPS 
DONE WITH SHORT BEEPS 
DO MORE 


DELAY BEFORE RETURN 


RESTORE CONTENTS OF DS 
RESTORE FLAGS 


MODE SET 

SET CURSOR TYPE 

SET CURSOR POSITION 
READ CURSOR POSITION 
READ LIGHT PEN POSITION 
ACTIVE DISPLAY PAGE 
SCROLL DOWN 

SCROLL UP 

READ CHAR/ATTRIBUTE 
WRITE CHAR/ATTRIBUTE 
WRITE CHARACTER ONLY 
SET COLOR PALETTE 
WRITE DOT 

READ DOT 

WRITE TTY 

CURRENT VIDEO STATE 
SET PALETTE REGISTERS 
CHAR GENERATOR ROUTINE 
ALTERNATE SELECT 
WRITE STRING 


15 


0717 

= 0000 

0717 

0717 28 18 
071A 0800 
= 0005 

o71c 

071C OB 03 
= 0004 

0720 23 
0721 

0721 37 27 
0727 04 11 
072D 00 00 
0733 C7 14 
0739 FF 

= 0019 

= 0023 

073A 

073A 00 O1 
0740 06 07 
0746 #14 15 
074C OF 00 
= 0014 

= 0037 

074E 

074E 00 00 
0754 OE 00 
= 0009 

= 0040 

0757 28 18 
075A 0800 
075C OB 03 
0760 23 
0761 37 27 
0767 O04 11 
076D 00 00 
0773 C7 14 
0779 FF 
077A OO O1 
0780 06 07 
0786 14 15 
078C OF 00 
078E 00 00 
0794 OE 00 
0797 50 18 
079A 1000 
079C 01 03 
O7A0 23 
O7A1l 70 4F 
O7A7 04 11 
O7AD 00 00 
07B3 C7 28 
O7B9 FF 
O7BA 00 01 
07CcCO 06 07 
o7cé6 14 15 
o7cc OF 00 
O7CE 00 00 
07D4 OE 00 
07D7 50 18 
O7DA 1000 
o7DCc 01 03 
O7EO 23 
O7E1 70 4F 
O7E7 04 11 
O7ED 00 00 
O7F3 C7 28 
O7F9 FF 
O7FA 00 O01 
0800 06 07 
oso6 14 15 
osoc OF 00 
O80E 00 00 
0814 OE 00 
0817 28 18 


os 


00 


00 
FF 


os 


00 


os 


00 


os 


00 


03 


00 


03 


03 


03 


31 
06 
El 
FO 


00 


10 


1765 
1766 
1767 
1768 
1769 
1770 
17721 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
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INCLUDE VPARMS . INC 
SUBTTL VPARMS.INC 
PAGE 


VIDEO_PARMS LABEL BYTE 


STRUCTURE OF THIS TABLE 


7 
; 
; COLUMNS, ROWS, PELS PER CHARACTER 
7 PAGE LENGTH 

; SEQUENCER PARAMETERS 

; MISCELLANEOUS REGISTER. 

; CRTC PARAMETERS 

; ATTRIBUTE PARAMETERS 

7 GRAPHICS PARAMETERS 


$ - VIDEO_PARMS 





BASE_1_L LABEL BYTE 
joo DEFAULT MODES 
DB 40D, 24D, 08D 
DW 00800H 


TFS_LEN EQU $ - BASE_1_L 


SEQ_PARMS LABEL BYTE 
DB 0O0BH, 003H, 000H, 003H 

M1 EQU $ - SEQ_PARMS 
DB 023H 

CRT_PARMS LABEL BYTE 
DB 037H, 027H, 02DH, 037H, 031H, 015H 
DB 004H, 011H, 000H, 007H, 006H, 007H 
DB 000H, 000H, 000H, 000H, 0F1H, 024H 
DB 0C7H, 014H, 008H, OEOH, OFOH, 0A3H 
DB OFFH 

M4 EQU $-CRT_PARMS 

LN_4 EQU $ - BASE_1_L 

ATTR_PARMS LABEL BYTE 
DB 000H, 001H, 002H, 003H, 004H, 005H 
DB 006H, 007H, 010H, 011H, 012H, 013H 
DB 014H, 015H, 016H, 017H, 008H, 000H 
DB OOFH, 000H 

M5 EQU $-ATTR_PARMS 

LN_2 EQU $ - BASE_1_L 

GRAPH_PARMS LABEL BYTE 
DB 000H, 000H, 000H, 000H, 000H, 0108 
DB OOEH, 000H, OFFH 

M6 EQU $-GRAPH_PARMS 

M_TBL_LEN EQU $ - BASE_1_L 

;--1-- 
DB 40D, 24D, 08D 
DW 00800H 
DB 0OBH, 003H, 000H, 003H 
DB 023H 
DB 037H, 027H, 02DH, 037H, 031H, 015H 
DB 004H, 011H, 000H, 007H, 006H, 007H 
DB 000H, 000H, 000H, 000H, 0F1H, 024H 
DB 0C7H, 014H, 008H, OE0H, OFOH, 0A3H 
DB OFFH 
DB 000H, 001H, 002H, 003H, 004H, 005H 
DB 006H, 007H, 010H, 011H, 012H, 013H 
DB 014H, 015H, 016H, 017H, 008H, 000H 
DB OOFH, 000H 
DB 000H, 000H, 000H, 000H, 000H, 0108 
DB OOEH, 000H, OFFH 

por2-- 
DB 80D, 24D, 08D 
DW 010008 
DB 001H, 003H, 000H, 003H 
DB 023H 
DB 070H, 04FH, 05CH, 02FH, OSFH, 007H 
DB 004H, 011H, 000H, 007H, 006H, 007H 
DB 000H, 000H, 000H, 000H, 0F1H, 024H 
DB 0C7H, 028H, 008H, OE0H, OFOH, 0A3H 
DB OFFH 
DB 000H, 001H, 002H, 003H, 004H, 005H 
DB 006H, 007H, 010H, 011H, 012H, 013H 
DB 014H, 015H, 016H, 017H, 008H, 000H 
DB OOFH, 000H 
DB 000H, 000H, 000H, 000H, 000H, 0108 
DB OOEH, 000H, OFFH 

77-73-- 
DB 80D, 24D, 08D 
DW 010008 
DB 001H, 003H, 000H, 003H 
DB 023H 
DB 070H, 04FH, 05CH, 02FH, OSFH, 007H 
DB 004H, 011H, 000H, 007H, 006H, 007H 
DB 000H, 000H, 000H, 000H, 0E1H, 024H 
DB 0C7H, 028H, 008H, OE0H, OFOH, 0A3H 
DB OFFH 
DB 000H, 001H, 002H, 003H, 004H, 005H 
DB 006H, 007H, 010H, 011H, 012H, 013H 
DB 014H, 015H, 016H, 017H, 008H, 000H 
DB OOFH, 000H 
DB 000H, 000H, 000H, 000H, 000H, 0108 
DB OOEH, 000H, OFFH 

ier ual 


DB 40D, 24D, 08D 
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ossc 
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0867 
o86D 
0873 
0879 


O87A 
0880 
0886 
ossc 


088E 
0894 


0897 
089A 


os9c 
O8aAo 


OsaAl 
O8A7 
O8AD 
08B3 
O8B9 


O8BA 
osco 
08cé 
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O8CE 
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08D7 
O8DA 
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0946 
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095c 
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po-5- 


7-76 


oT 


;o-8-- 


o-9- 


DW 


DB 


DB 


DB 
DB 
DB 
DB 
DB 


DB 
DB 
DB 
DB 


DB 
DB 


DB 
DW 


DB 


DB 


DB 
DB 
DB 
DB 
DB 


DB 
DB 
DB 
DB 


DB 
DB 


DB 
DW 


DB 


DB 


DB 
DB 
DB 
DB 
DB 


DB 
DB 
DB 
DB 


DB 
DB 


DB 
DW 


DB 


DB 


DB 
DB 
DB 
DB 
DB 


DB 
DB 
DB 
DB 


DB 
DB 


DB 
DW 


DB 


DB 


DB 
DB 
DB 
DB 
DB 


DB 
DB 
DB 
DB 


DB 
DB 


DB 
DW 


DB 


DB 


DB 
DB 
DB 
DB 
DB 


DB 
DB 
DB 
DB 


040008 
0OBH, 003H, 000H, 002H 
023H 


037H, 027H, 02DH, 037H, 030H, 014H 
004H, 011H, 000H, 001H, 000H, 000H 
000H, 000H, 000H, 000H, 0F1H, 024H 
0C7H, 014H, 000H, OEOH, OFOH, 0A2H 
OFFH 


000H, 013H, 015H, 017H, 002H, 004H 
006H, 007H, 010H, 011H, 012H, 013H 
014H, 015H, 016H, 017H, 001H, 000H 
003H, 000H 


000H, 000H, 000H, 000H, 000H, 0308 
OOFH, 000H, OFFH 


40D, 24D, 08D 
040008 


0OBH, 003H, 000H, 002H 
023H 


037H, 027H, 02DH, 037H, 030H, 014H 
004H, 011H, 000H, 001H, 000H, 000H 
000H, 000H, 000H, 000H, 0F1H, 024H 
0C7H, 014H, 000H, OFOH, OFOH, 0A2H 
OFFH 


000H, 013H, 015H, 017H, 002H, 004H 
006H, 007H, 010H, 011H, 012H, 013H 
014H, 015H, 016H, 017H, 001H, 000H 
003H, 000H 


000H, 000H, 000H, 000H, 000H, 0308 
OOFH, 000H, OFFH 


80D, 24D, 08D 
040008 


001H, 001H, 000H, 006H 
023H 


070H, 04FH, 059H, 02DH, O5EH, 0006H 
004H, 011H, 000H, 001H, 000H, 000H 
000H, 000H, 000H, 000H, OEOH, 023H 
0C7H, 028H, 000H, ODFH, OEFH, 0C2H 
OFFH 


000H, 017H, 017H, 017H, 017H, 017H 
017H, 017H, 017H, 017H, 017H, 017H 
017H, 017H, 017H, 017H, 001H, 000H 
001H, 000H 


000H, 000H, 000H, 000H, 000H, 000H 
OODH, 000H, OFFH 


80D, 24D, 14D 
010008 


000H, 003H, 000H, 003H 
OAGH 


060H, 04FH, 056H, 03AH, 051H, 060H 
070H, 01FH, 000H, 00DH, OOBH, 00CH 
000H, 000H, 000H, 000H, O5EH, 02EH 
O5DH, 028H, 00DH, 05EH, 06EH, 0A3H 
OFFH 


000H, 008H, 008H, 008H, 008H, 008H 
008H, 008H, 010H, 018H, 018H, 018H 
018H, 018H, 018H, 018H, OOFH, 000H 
OOFH, 008H 


000H, 000H, 000H, 000H, 000H, 0108 
OOAH, 000H, OFFH 


40D, 24D, 08D 
040008 


000H, 000H, 000H, 003H 
023H 


037H, 027H, 02DH, 037H, 031H, 015H 
004H, 011H, 000H, 007H, 006H, 007H 
000H, 000H, 000H, 000H, 0F1H, 024H 
0C7H, 014H, 008H, OEOH, OFOH, 0A3H 
OFFH 


000H, 001H, 002H, 003H, 004H, 005H 
006H, 007H, 010H, 011H, 012H, 013H 
014H, 015H, 016H, 017H, 008H, 000H 
OOFH, 000H 


000H, 000H, 000H, 000H, 000H, 0108 
OOEH, 000H, OFFH 


40D, 24D, 08D 
040008 


000H, 000H, 000H, 003H 
023H 


037H, 027H, 02DH, 037H, 031H, 015H 
004H, 011H, 000H, 007H, 006H, 007H 
000H, 000H, 000H, 000H, 0F1H, 024H 
0C7H, 014H, 008H, OEOH, OFOH, 0A3H 
OFFH 


000H, 001H, 002H, 003H, 004H, 005H 
006H, 007H, 010H, 011H, 012H, 013H 
014H, 015H, 016H, 017H, 008H, 000H 
OOFH, 000H 
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;--A-- 


;--B-- 


on 


;--D-- 


;--E-- 





DB 
DB 


DB 
DW 


DB 


DB 


DB 
DB 
DB 
DB 
DB 


DB 
DB 
DB 
DB 


DB 
DB 


DB 
DW 


DB 


DB 


DB 
DB 
DB 
DB 
DB 


DB 
DB 
DB 
DB 


DB 
DB 


DB 
DW 


DB 


DB 


DB 
DB 
DB 
DB 
DB 


DB 
DB 
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DB 
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DB 


DB 


DB 
DB 
DB 
DB 
DB 


DB 
DB 
DB 
DB 


DB 
DB 


DB 
DW 


DB 


DB 


DB 
DB 
DB 
DB 
DB 


DB 
DB 
DB 
DB 


DB 
DB 


DB 
DW 


DB 


DB 


DB 
DB 
DB 
DB 
DB 


DB 
DB 


000H, 000H, 000H, 000H, 000H, 0108 
OOEH, 000H, OFFH 


40D, 24D, 08D 
040008 


000H, 000H, 000H, 003H 
023H 


037H, 027H, 02DH, 037H, 031H, 015H 
004H, 011H, 000H, 007H, 006H, 007H 
000H, 000H, 000H, 000H, 0F1H, 024H 
0C7H, 014H, 008H, OEOH, OFOH, 0A3H 
OFFH 


000H, 001H, 002H, 003H, 004H, 005H 
006H, 007H, 010H, 011H, 012H, 013H 
014H, 015H, 016H, 017H, 008H, 000H 
OOFH, 000H 


000H, 000H, 000H, 000H, 000H, 0108 
OOEH, 000H, OFFH 


80D, 24D, 08D 
010008 


001H, 004H, 000H, 007H 
023H 


070H, 04FH, O5CH, 02FH, OSFH, 007H 
004H, 011H, 000H, 007H, 006H, 007H 
000H, 000H, 000H, 000H, 0F1H, 024H 
0C7H, 028H, 008H, OE0H, OFOH, 0A3H 
OFFH 


000H, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, 000H 
OOFH, 000H 


000H, 000H, 000H, 000H, 000H, 000H 
004H, 000H, OFFH 


80D, 24D, 14D 
010008 


000H, 004H, 000H, 007H 
OAGH 


060H, 04FH, 056H, 03AH, 051H, 060H 
070H, 01FH, 000H, 00DH, OOBH, 00CH 
000H, 000H, 000H, 000H, O5EH, 02EH 
O5DH, 028H, 00DH, 05EH, 06EH, 0A3H 
OFFH 


000H, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 00EH, 000H 
OOFH, 008H 


000H, 000H, 000H, 000H, 000H, 000H 
004H, 000H, OFFH 


40D, 24D, 08D 
020008 


0OBH, OOFH, 000H, 006H 
023H 


037H, 027H, 02DH, 037H, 030H, 014H 
004H, 011H, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 0F1H, 024H 
0C7H, 014H, 000H, OE0H, OFOH, 0E3H 
OFFH 


000H, 001H, 002H, 003H, 004H, 005H 
006H, 007H, 010H, 011H, 012H, 013H 
014H, 015H, 016H, 017H, 001H, 000H 
OOFH, 000H 


000H, 000H, 000H, 000H, 000H, 000H 
005H, OOFH, OFFH 


80D, 24D, 08D 
040008 


001H, OOFH, 000H, 006H 
023H 


070H, 04FH, 059H, 02DH, O5EH, 006H 
004H, 011H, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, OEOH, 023H 
0C7H, 028H, 000H, ODFH, OEFH, 0E3H 
OFFH 


000H, 001H, 002H, 003H, 004H, 005H 
006H, 007H, 010H, 011H, 012H, 013H 
014H, 015H, 016H, 017H, 001H, 000H 
OOFH, 000H 


000H, 000H, 000H, 000H, 000H, 000H 
005H, OOFH, OFFH 


80D, 24D,14D 
080008 


005H, OOFH, 000H, 000H 
OA2H 


060H, 04FH, 056H, 01AH, 050H, OEOH 
070H, 01FH, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, O5EH, 02EH 
O5DH, 014H, 00DH, 05EH, 06EH, 08BH 
OFFH 


000H, 008H, 000H, 000H, 018H, 018H 
000H, 000H, 000H, 008H, 000H, 000H 
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7710-- 


7710-- 


BASE_3 


DB 
DB 


DB 
DB 


DB 
DW 


DB 
DB 


DB 
DB 
DB 
DB 
DB 


DB 
DB 
DB 
DB 


DB 
DB 


EQU 


000H, 018H, 000H, 000H, 0OBH, 000H 
005H, 000H 


000H, 000H, 000H, 000H, 000H, 0108 
007H, OOFH, OFFH 


80D, 24D,14D 
08000H 


005H, OOFH, 000H, 000H 
OA7H 


O5BH, 04FH, 053H, 017H, 050H, OBAH 
06CH, 01FH, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, O5EH, 02BH 
O5DH, 014H, 0OFH, O5FH, OOAH, 08BH 
OFFH 


000H, 001H, 000H, 000H, 004H, 007H 
000H, 000H, 000H, 001H, 000H, 000H 
004H, 007H, 000H, 000H, 001H, 000H 
005H, 000H 


000H, 000H, 000H, 000H, 000H, 0108 
007H, OOFH, OFFH 


$ - VIDEO_PARMS 


> 16K MODE VALUES 


DB 
DW 


DB 
DB 


DB 
DB 
DB 
DB 
DB 


DB 
DB 
DB 
DB 


DB 
DB 


DB 
DW 


DB 
DB 


DB 
DB 
DB 
DB 
DB 


DB 
DB 
DB 
DB 


DB 
DB 


EQU 


80D, 24D, 14D 
080008 


001H, OOFH, 000H, 006H 
OA2H 


060H, 04FH, 056H, 03AH, 050H, 060H 
070H, 01FH, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, O5EH, 02EH 
O5DH, 028H, 00DH, 05EH, 06EH, 0E3H 
OFFH 


000H, 008H, 000H, 000H, 018H, 018H 
000H, 000H, 000H, 008H, 000H, 000H 
000H, 018H, 000H, 000H, 0OBH, 000H 
005H, 000H 


000H, 000H, 000H, 000H, 000H, 000H 
005H, OOFH, OFFH 


80D, 24D, 14D 
08000H 


001H, OOFH, 000H, 006H 
OA7H 


O5BH, 04FH, 053H, 037H, 052H, 000H 
06CH, 01FH, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, O5EH, 02BH 
O5DH, 028H, 0OFH, O5FH, OOAH, 0E3H 
OFFH 


000H, 001H, 002H, 003H, 004H, 005H 
014H, 007H, 038H, 039H, 03AH, 03BH 
03CH, 03DH, 03EH, 03FH, 001H, 000H 
OOFH, 000H 


000H, 000H, 000H, 000H, 000H, 000H 
005H, OOFH, OFFH 


$ - VIDEO_PARMS 


= — HI RES ALTERNATE VALUES 





;--0-- 


oe 


oe 


DB 
DW 


DB 


DB 


DB 
DB 
DB 
DB 
DB 


DB 
DB 
DB 
DB 


DB 
DB 


DB 
DW 


DB 


DB 


DB 
DB 
DB 
DB 
DB 


DB 
DB 
DB 
DB 


DB 
DB 


DB 


40D, 24D,14D 
008008 


00BH, 003H, 000H, 003H 
OA7H 


02DH, 027H, 02BH, 02DH, 028H, 06DH 
06CH, 01FH, 000H, 00DH, 006H, 007H 
000H, 000H, 000H, 000H, O5EH, 02BH 
O5DH, 014H, 0OFH, 05EH, OOAH, 0A3H 
OFFH 


000H, 001H, 002H, 003H, 004H, 005H 
014H, 007H, 038H, 039H, 03AH, 03BH 
03CH, 03DH, 03EH, 03FH, 008H, 000H 
OOFH, 000H 


000H, 000H, 000H, 000H, 000H, 010H 
OOEH, 000H, OFFH 


40D, 24D,14D 
00800H 


0O0BH, 003H, 000H, 003H 
OA7H 


02DH, 027H, 02BH, 02DH, 028H, 06DH 
06CH, 01FH, 000H, 00DH, 006H, 007H 
000H, 000H, 000H, 000H, O5EH, 02BH 
O5DH, 014H, 0OFH, O5EH, OOAH, 0A3H 
OFFH 


000H, 001H, 002H, 003H, 004H, 005H 
014H, 007H, 038H, 039H, 03AH, 03BH 
03CH, 03DH, 03EH, 03FH, 008H, 000H 
OOFH, 000H 


000H, 000H, 000H, 000H, 000H, 0108 
OOEH, 000H, OFFH 


80D, 24D,14D 
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OCc5A 
ocsc 
océ60 


océl 
Oc67 
océD 
0c73 
oc79 


OC7A 
ocso 
ocs6é 
ocsc 


OC8E 
ocg94 


oc97 
OC9A 


ocgc 
OCcAO 


Ocal 
OCA7 
OCAD 
OcB3 
OCB9 


OCBA 
occo 
occé 
occc 


OCCE 
ocbD4 


OCD7 
OCD7 
ocbs 
ocD9 
OCDA 
OCDB 
ocpc 
OcDD 
OCDE 
OCDF 
OCEO 


OCE1 
OCE2 
OCE4 
OCE6 
OCE8 
OCEA 
OCED 
OCEF 
OCFO 
OCF2 
OcF5 


OcF5 
ocrs 
OCF9 


OCFE 
OCFE 
OCFF 
opo1 
oDo3 
op04 
opo5 


opo5 


opo5 
oD06 
oDpO09 
ODOD 
oD10 
op13 
op14 
op15 


op15 
op15 
0D17 
op18 
oDp19 
0D1B 
opic 
oDp1D 
OD1E 


OD1E 
OD1E 
OD1F 
0D20 


oD20 
0D20 
op21 
oDp24 
OD26 
oD29 
op2c 
OD2D 
0D30 
0D32 
0D35 


03 00 


18 OE 


03 00 


OCFE R 


03 


03 


FF A4 O6EF R 


co 
Ds 


OCFE R 


16 0463 R 


E2 FO 
CA OA 


c4 


c4 


2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
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aaaaaaaaaaaaaaaaaaaaaNaaNaaNaaNaaNaaNaaNaANaANaANaANaANaaNaaaaaaaaaaaa 


DW 
DB 
DB 


DB 
DB 
DB 
DB 
DB 


DB 
DB 
DB 
DB 


DB 
DB 


poo3-- 
DB 
DW 


DB 
DB 


DB 
DB 
DB 
DB 
DB 


DB 
DB 
DB 
DB 
DB 
DB 
SUBTTL 


010008 
001H, 003H, 000H, 003H 
OA7H 


O5BH, 04FH, 053H, 037H, 051H, 05BH 
06CH, 01FH, 000H, 0ODH, 006H, 007H 
000H, 000H, 000H, 000H, O5EH, 02BH 
O5DH, 028H, 0OFH, 05EH, OOAH, 0A3H 
OFFH 


000H, 001H, 002H, 003H, 004H, 005H 
014H, 007H, 038H, 039H, 03AH, 03BH 
03CH, 03DH, 03EH, 03FH, 008H, 000H 
OOFH, 000H 


000H, 000H, 000H, 000H, 000H, 0108 
OOEH, 000H, OFFH 


80D, 24D, 14D 
010008 


001H, 003H, 000H, 003H 
OA7H 


O5BH, 04FH, 053H, 037H, 051H, 05BH 
06CH, 01FH, 000H, 00DH, 006H, 007H 
000H, 000H, 000H, 000H, O5EH, 02BH 
O5DH, 028H, 00OFH, 05EH, OOAH, 0A3H 
OFFH 


000H, 001H, 002H, 003H, 004H, 005H 
014H, 007H, 038H, 039H, 03AH, 03BH 
03CH, 03DH, 03EH, 03FH, 008H, 000H 
OOFH, 000H 


000H, 000H, 000H, 000H, 000H, 0108 
OOEH, 000H, OFFH 


; VECTOR INTO <AH> SPECIFIED FUNCTION 


COMBO_VIDEO 
STI 
CLD 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 


PUSH 


PROC NEAR 


WORD PTR CS:[SI + OFFSET T2] 


7 — UTILITY ROUTINES 





; SET DS TO THE DATA SEGMENT 


PROC 
PUSH 
SUB 
MOV 
POP 
RET 
ENDP 


POP 
RET 
WHAT_BASE 
OUT_DX PROC 
XCHG 
ouT 
INC 
XCHG 
out 
DEC 
RET 
ENDP 


NEAR 
AX 
AX, AX 
DS, AX 
AX 


PROC 
DS:ABSO 
DS 

DDS 

DX, ADDR_6845 
DL, OFOH 

DL, OAH 

DS 


NEAR 


ENDP 


HSS ROUTINE TO SOUND BEEPER 


PROC 
out 
RET 
ENDP 


PROC 
PUSH 
MOV 
MOV 
CALL 
MOV 
DEC 
CALL 
MOV 
CALL 
MOV 


Dx 
DX, TIMER+3 
AL, 10110110B 


DX, PORT_B 
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INTERRUPTS ON 
SET DIRECTION FORWARD 
SAVE THE REGISTER SET 


SAVE AX VALUE 

GET INTO LOW BYTE 

ZERO TO HIGH BYTE 

* 2 FOR TABLE LOOKUP 
PUT INTO SI FOR BRANCH 
TEST FOR WITHIN RANGE 
BRANCH AROUND BRANCH 
RECOVER REGISTER 

PASS UNRECOGNIZED CALL 
RETURN TO CALLER 


RECOVER 
JMP TO AH=0 THRU AH=XX 


SAVE REGISTER 


RESTORE REGISTER 


SAVE DATA SEGMENT 

GET LOW MEMORY SEGMENT 
GET CRTC ADDRESS 

STRIP OFF LOW NIBBLE 
SET TO STATUS REGISTER 


AH=INDEX, AL=DATA, DX=PORT 
GET INDEX VALUE 

SET INDEX REG 

SET DX TO DATA REG 

GET DATA VALUE 

SET DATA REG 

SET DX BACK TO INDEX 


SEL TIM 2,LSB,MSB, BINARY 
WRITE THE TIMER MODE REG 
DIVISOR FOR 1000 HZ 
WRITE TIMER 2 CNT - LSB 


WRITE TIMER 2 CNT —- MSB 
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OD38 
0D39 
0D3B 
OD3D 
oD40 
oD42 
oD42 
op44 
OD46 
op48 
OD4A 
OD4D 
OD4E 
OD4F 


OD4F 


OD4F 
OD52 
OD56 
OD59 
OD5A 


OD5A 


OD5A 
OD5B 
op5c 
OD5F 
oDé6é3 
oDé6é8 


OD6A 
OD6D 
OD6F 
0D73 
OD76 
OD76 
OD79 
0D7B 
OD7F 
oD82 
oD82 
ops5 


OD87 
OD8A 
opsc 
OD8E 
oDp90 
op92 
op94 


OD97 
OD97 
OD9B 
OD9B 
OD9F 
ODA1 


ODA3 
ODA3 
ODA6 
ODA8 
ODA8 
ODA8 
ODA9 
ODAA 
ODAB 


ODAB 


ODAB 
ODAE 
ODB1 
ODB3 
ODB5 
ODB8 
ODB9 
ODBC 
ODBF 
opc1 
opc4 
opc4 
opcé 
ODC7 
ODCA 
opcD 
ODDO 


ODD2 
ODD5 
ODD6é 
ODD8s 
ODD9 
ODDB 
ODDE 
ODE1 


ODE2 
ODE6 
ODE8 
ODE8 
ODEB 
ODEE 
ODEF 
ODF1 


E8 
c4 


26: 


c3 


8A 
2a 


OCFE R 
1E 04A8 R 
c4 1F 


OD4F R 

26 0449 R 
06 0487 R 60 
18 


05 90 


c3 04C0 


OE 0449 R 


c3 40 
FB 


16 0463 R 
E4 


8A 07 
op15 R 


c4 
Fc 19 


2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
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IN AL, DX 
MOV AH, AL 
OR AL, 03 
CALL BP_1 
SUB cx, CX 

G7: 
LOOP G7 
DEC BL 
JNZ G7 
MOV AL, AH 
CALL BP_1 
POP Dx 
RET 

BEEP ENDP 


PROC 
DS:ABSO 
DDS 

BX, SAVE_PTR 
BX,DWORD PTR ES: [BX] 


NEAR 





ENDP 


poss ESTABLISH ADDRESSING TO THE CORRECT MODE 


MAKE_BASE PROC NEAR 
ASSUME DS:ABSO 
PUSH cx 
PUSH DX 
CALL SET_BASE 
MOV AH, CRT_MODE 
TEST INFO, 060H 
oz BM1 


jas WE HAVE A MEMORY EXPANSION OPTION HERE 
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; GET SETTING OF PORT 
; SAVE THAT SETTING 
; TURN SPEAKER ON 


; SET CNT TO WAIT 500 MS 


DELAY BEFORE TURNING OFF 
DELAY CNT EXPIRED? 
NO-CONTINUE BEEPING SPK 
RECOVER VALUE OF PORT 


; RETURN TO CALLER 


PARAMETER TABLE VECTOR IN THE SAVE TABLE 


; GET PTR TP PTR TABLE 
; GET PARAMETER PTR 


TABLE ENTRY 


; GET PARM TBL PTR 


; TEST FOR BASE CARD 
; MIN MEMORY 


; SECONDARY EMULATE SETTING 


; PRIMARY EMULATE SETTING 


; VECTOR TO ENHANCEMENT TBL 


; LENGTH OF ONE MODE ENTRY 


; MODE TO SEQUENCER PARMS 


CMP AH, OFH 
JNE BM2 
ADD BX,BASE_2 - BASE_1 
MP B_M OUT 
BM2 
CMP AH, 010H 
JNE BM1 
ADD BX,BASE_2 + M_TBL_LEN — BASE_1 
MP B_M OUT 
BM1 
CMP AH, 03H 
JA B_M_3 ; SKIP ENHANCED PORTION 
ic CHECK THE SWITCH SETTING FOR ENHANCEMENT 
MOV AL, INFO_3 
AND AL, OFH 
CMP AL, 03H 
JE BRS 
CMP AL, 09H 
JE BRS 
MP BM 3 
jc WE WILL PERFORM ENHANCEMENT 
BRS: 
ADD BX, BASE_3 - BASE_1 
B_M_3: 
MOV CL, CRT_MODE 
SUB CH, CH 
JCXZ BM4 
jo THIS LOOP WILL MOVE THE PTR TO THE INDIVIDUAL MODE ENTRY 
BM5 
ADD BX,M_TBL_LEN 
LOOP BM5 
B_M_4: 
B_M_OUT: 
POP Dx 
POP cx 
RET 
MAKE_BASE ENDP 
icc PROGRAM THE EGA REGISTERS FROM THE PARAMETER TABLE 
SET_REGS PROC NEAR 
ASSUME DS:ABSO,ES:NOTHING 
ic PROGRAM THE SEQUENCER 
CALL MAKE_BASE ; GET TABLE PTR 
ADD BX, TFS_LEN 
MOV DH, 3 
MOV DL, SEQ_ADDR 
MOV AX,0001H ; RESET SEQUENCER 
CLI ; DISABLE INTERRUPTS 
CALL OUT_DX 
MOV AL, ES: [BX] ; GET SEQUENCER VALUE 
INC AH ; NEXT INDEX 
CALL OUT_DX ; SET IT 
D1: 
INC AH ; NEXT INDEX REGISTER 
INC BX ; NEXT TABLE ENTRY 
MOV AL, ES: [BX] 
CALL OUT_DX 
CMP AH,M1+1 
JB D1 
MOV AL, ES: [BX] 
INC BX 
MOV DL,MISC_OUTPUT 
OUT DX, AL 
MOV DL, SEQ_ADDR 
MOV AX,0003H 
CALL OUT_DX ; START SEQUENCER 
sTI ; ENABLE INTERRUPTS 


y — PROGRAM THE CRT CONTROLLER 





MOV DX, ADDR_6845 
SUB AH, AH 
X1: 
MOV AL, ES: [BX] 
CALL OUT_DX 
INC BX 
INC AH 
CMP AH,M4 


; CRTC INDEX REGISTER 
; COUNTER 


GET VALUE FROM TABLE 
SET CRTC REGISTER 
NEXT TABLE ENTRY 
NEXT INDEX VALUE 
TEST REGISTER COUNT 


1F 
1E 
BO 


E8 
c3 


50 
1E 
E8& 
AO 
1F 
24 
3c 
74 
3c 
74 


F2 

8B 47 Fl 
EO 

0460 R 


F3 
oD05 R 


co 
E4 


8A 07 
EO 


EO 


c4 
Fc 14 
EF 


00 


3E 04A8 R 
c4 7D 04 


0010 


8A 07 
op15 R 


FC 09 


c2 
OE 044C R 


1DB7 R 


2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
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JB x1 

MOV AX, ES: [BX]-[OFH] 
XCHG AH, AL 

MOV CURSOR_MODE, AX 


,oSS PROGRAM THE ATTRIBUTE CHIP 


August 2, 1984 


; DO THE REST 
; GET CURSOR MODE 


; SET LOW RAM VALUE 


MOV SI,BX 
CALL WHAT_BASE 
IN AL, DX 
MOV DL, ATTR_WRITE 
SUB AH, AH ; INDEX COUNTER 
D3: 
MOV AL, ES: [BX] ; GET DATA VALUE 
XCHG AH, AL 
OUT DX, AL 
XCHG AH, AL 
OUT DX, AL 
INC BX ; NEXT DATA VALUE 
INC AH ; NEXT INDEX VALUE 
CMP AH,M5 ; TEST REGISTER COUNT 
JB D3 ; DO THE REST 
MOV AL,O 
OUT DX, AL 
icc CHECK IF PALETTE REGISTER VALUES ARE TO BE SAVED 
PUSH DS 
PUSH ES 
LES DI, SAVE_PTR ; GET TABLE PTR 
LES DI,DWORD PTR ES: [DI] [4] ; GET PALETTE PTR 
MOV AX,ES 
OR AX,DI 
JZ SAVE_OUT ; IF ZERO, NO SAVE OCCURS 
i STORE AWAY THE PALETTE VALUES IN RAM SAVE AREA 
POP DS 
PUSH DS 
MOV cx, 16D 
REP MOVSB ; SAVE THE PALETTE REGS 
INC sI 
MOVSB ; SAVE THE OVERSCAN REG 
SAVE_OUT: 
POP ES 
POP DS 
ic PROGRAM THE GRAPHICS CHIPS 
MOV DL, GRAPH_1_PoOS 
MOV AL,O 
OUT DX, AL 
MOV DL, GRAPH_2_POS 
MOV AL,1 
OUT DX, AL 
MOV DL, GRAPH_ADDR 
SUB AH, AH 
D4: 
MOV AL, ES: [BX] ; PARAMETER BYTE 
CALL OUT_DX ; SET IT 
INC BX ; NEXT BYTE 
INC AH ; NEXT REGISTER 
CMP AH, M6 
JB D4 ; CONTINUE 
RET 
SET_REGS ENDP 
ioc MODE SET REGEN CLEAR ROUTINE 
BLANK PROC NEAR ; FILL REGEN WITH BLANKS 
ASSUME DS:ABSO,ES:NOTHING 
MOV AL, INFO ; SEE IF-BLANK IS TO OCCUR 
TEST AL, 080H ; MODE SET. HIGH BIT 
JNZ ouT_1 ; SKIP BLANK FOR REGEN, 
MOV DX, OB800H ; COLOR MODE REGEN ADDRESS 
MOV AL, CRT_MODE ; CURRENT MODE SET 
CMP AL,6 ; O-6 ARE COLOR MODES 
JBE cco 
MOV Dx, OBOOOH ; MONOCHROME REGEN ADDRESS 
CMP AL,7 ; MONOCHROME MODE 
JE cco 
MOV DX, OAOOOH ; REMAINING MODES 
CGO: 
MOV BX, 0720H ; ALPHA. BLANK. VALUE 
CMP AL,4 ; ALPHAMODES 0-3 
JB wwi 
CMP AL,7 ; ALPHA MODE 
JE wwi 
SUB BX, BX ; GRAPHICS BLANK VALUE 
wwi 
SRLOAD ES ; SET THE REGEN SEGMENT 
co MOV ES,DX 
MOV CX, CRT_LEN 
JCXZ ouT_1 
MOV cx, 08000H 
CMP DH, OAOH 
JE N_BA 
MOV CH, 040H 
N_BA: 
MOV AX, BX ; BLANK VACHE 
SUB DI,DI ; CLEAR POINTER 
REP STOSW ; CLEAR THE PAGE 
ouT_1: 
RET ; RETURN TO CALLER 
BLANK ENDP 
PH_S5 PROC NEAR 
CALL PAL_ON 
RET 
PH_5 ENDP 


eae) SEE IF WE ARE TO SUPPORT 640 X 350 ON A 640 X 200 MODE 


BRST_DET PROC NEAR 
ASSUME DS:ABSO 
PUSH AX 
PUSH DS 
CALL DDS 
MOV AL, INFO_3 
POP DS 
AND AL, OFH 
CMP AL, 03H 
JE B_YES 
CMP AL, 09H 
JE B_YES 


; EMULATE MODE 


; EMULATE MODE 


22 


OEAD 
OEAE 
OEAF 
OEBO 
OEBO 
OEB1 
OEB2 
OEB3 


OEB3 


OEB3 
OEB4 
OEBA 
OEBE 
OEBF 


OEC4 
OEC5 
OECA 
OECC 
OECF 
OED1 
OED3 


OED5 
OEDA 
OEEO 
OEE1 
OEE6 
OEE8 
OEEA 
OEEC 
OEEE 
OEF3 
OEF3 
OEF5 


OEF8 
OEF8 
OEFB 
OEFD 
OEFF 


OFO1 
OFO6 
oroc 
OFOD 
OFOF 
OF15 
OF1A 


OF1D 
OF1D 
OF1E 
OF1F 
OF21 
OF23 
OF28 
OF2c 
OF2D 
OF2F 
OF31 
OF33 
OF35 
OF35 
OF38 
OF3A 
OF3E 


Or41 
OFr41 
OF42 
oFr43 
or45 
OF47 
or4c 
OF50 
OF51 
OF53 
OF56 
OF58 
OF5C 
OF5C 
OF62 


OF67 
OF6A 
OF6D 
OF6E 
OF6F 
OF71 


OF73 


OF76 
OF79 
OF7B 


OF7E 
OF82 


orss 
OFrs9 
OFrsB 


OF8E 
OF92 


OF95 
OF97 
OF99 
OF9D 
OFAO 


58 
F8 
c3 


58 


FQ 
c3 


E8 


26: 


2a 
A3 


26: 


A2 


26: 


2a 
A3 


06 010C OOOO E 


nn 


F3 


06 0484 R18 
06 0485 R 0008 


000E 


oBoc 


0487 R 7F 
06 0487 R 


D4 
16 0463 R 


06 044E 
06 0462 


0008 
0450 R 


OD5A R 
8A 07 

E4 
044A R 


8A 47 01 


2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
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POP AX 
CLC 
RET 
B_YES: 
POP AX 
stTc 
RET 
BRST_DET ENDP 
icc MODE SET 
AHO 
ASSUME DS:ABSO 
CLI 
MOV WORD PTR GRX_SET,OFFSET CGDDOT 
MOV WORD PTR GRX_SET + 2,CS 
sTI 
AND INFO, 11110011B ; TURN OFF RETRACE BIT 
; EGA ACTIVE BIT 
PUSH AX ; SAVE 
TEST INFO, 2 
JZ st_1 ; THERE IS NO MONOCHROME 
MOV AX, EQUIP_FLAG ; THERE IS A MONOCHROME 
AND AL, 030H ; CHECK THE EQUIPMENT FLAG 
CMP AL, 030H ; FOR MONOCHROME CALL 
JE sT_2 ; IT IS A MONOCHROME CALL 
;--c- FALL THROUGH => REGULAR COLOR CARD SETUP 
MOV ROWS, 024D 
MOV POINTS, 8 
POP AX ; RECOVER 
OR INFO, 00001000B ; EGA NOT ACTIVE 
CMP AL,1 
JBE ST_7 ; WAIT FOR RETRACE ON 
CMP AL,4 ; MODES 2,3 ONLY 
JAE ST_7 
OR INFO, 00000100B ; DO RETRACE 
ST_7 
INT 42H ; OTHER ADAPTER MODE CALL 
JMP V_RET ; BACK TO CALLER 
icc AT THIS POINT THERE IS NO MONOCHROME ATTACHED TO THE ADAPTER 
st_1 
MOV AX, EQUIP_FLAG ; TEST THE EQUIPMENT FLAG 
AND AL, 030H ; TO SEE IF THIS ISA 
CMP AL, 030H ; MONOCHROME SETUP CALL 
JNE sTtT_3 ; MUST BE COLOR TO CARD 
i-cC FALL THROUGH => REGULAR MONOCHROME CARD SETUP 
MOV ROWS, 024D 
MOV POINTS, 014D 
POP AX ; RECOVER 
INT 42H ; OTHER ADAPTER MODE CALL 
MOV CURSOR_MODE, 0BOCH ; FIX PLANAR VALUE 
OR INFO, 8 ; THE EGA IS NOT ACTIVE 
JMP V_RET ; BACK TO CALLER 
ic MONOCHROME SETUP TO THE ADAPTER 
SsT_2 
POP AX ; RECOVER 
PUSH AX ; SAVE 
MOV DH, 3 
AND AL, 080H ; PICK OFF THE CLEAR BIT 
AND INFO, 07FH ; MASK OFF THE OTHER BITS 
OR INFO, AL ; SAVE REGEN CLEAR BIT 
POP AX ; RECOVER TRUE CALL VALUE 
AND AL, O7FH ; ALREADY DEALT WITH 07 
CMP AL, OFH ; A MONOCHROME MODE 
JE ST_2A ; DO THIS MODE 
MOV AL,7 ; REGULAR MONOCHROME 
ST_2A: 
MOV CRT_MODE, AL ; SAVE MODE VALUE 
MOV DL, CRTC_ADDR_B ; IT IS 3-B-x 
MOV ADDR_6845,DX ; SAVE CRTC ADDRESS 
JMP Lele} ; CONTINUE THE MODE SET 
i-c- COLOR SETUP TO THE ADAPTER 
st_3 
POP AX ; RECOVER PARAMETER VALUE 
PUSH AX ; SAVE IT 
MOV DH, 3 
AND AL, 080H ; ISOLATE REGEN CLEAR BIT 
AND INFO, 07FH ; PREPARE INFO BYTE 
OR INFO, AL ; SET IT; OR NOT 
POP AX ; RECOVER TRUE MODE CALL 
AND AL, O7FH ; DONE WITH D7 
MOV CRT_MODE, AL ; SAVE THIS MODE 
MOV DL, CRTC_ADDR ; 3-D-x 
MOV ADDR_6845,DX ; SAVE CRTC ADDRESS 
QO: 
MOV CRT_START, 0 ; SAVE START ADDRESS 
MOV ACTIVE_PAGE, 0 ; RESET PAGE VALUE TO ZERO 
ASSUME ES:NOTHING 
MOV cx, 8 ; 8 PAGES OF CURSOR VALUES 
MOV DI,OFFSET CURSOR_POSN ; OFFSET 
PUSH DS ; ESTABLISH 
POP ES ; ADDRESSING 
SUB AX, AX ; O THOSE CURSOR LOCATIONS 
REP STOSW ; CLEAR OUT SAVED VALUES 
CALL MAKE_BASE 
MOV AL, ES: [BX] ; GET COLUMN COUNT 
SUB AH, AH ; ZERO HIGH BYTE 
MOV CRT_COLS, AX ; STORE COLUMN VALUE 
MOV AL, ES: [BX] [1] ; GET ROW VALUE 
MOV ROWS, AL ; STORE ROW VALUE 
MOV AL, ES: [BX] [2] ; GET THE BYTES/CHAR 
SUB , ; ZERO HIGH BYTE 
MOV POINTS, AX ; STORE BYTES/CHAR 
MOV AX,ES: [BX] [3] ; GET PAGE SIZE 
MOV CRT_LEN, AX ; STORE PAGE LENGTH 
SUB Bx, BX ; ZERO 
MOV AL,1 ; MONOCHROME ALPHA GHAR GEN 
MOV AH, CRT_MODE ; GET CURRENT MODE 
CMP AH,7 ; IS IT MONOCHROME 
JE ENTRY_2 ; 9X14 FONT 
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OFA2 
OFAS 


OFA7 


OFAA 
OFAC 
OFAE 
OFAE 
OFB1 
OFB4 
OFB8 
OFBB 
OFBD 
OFCO 
OFCcO 
OFC3 
OFC6 
OFC6 
OFC7 
orcs 
OFcCc 
OFCE 
OFDO 
OFD3 
OFD4 
OFD7 
OFDA 
OFDC 
OFDC 
OFDF 
OFE2 


OFE5 
OFE8 
OFED 
OFEF 
OFF5 
OFF5 
OFFA 
OFFC 
OFFE 
1003 
1005 
1005 
1009 
100c 
100F 
1011 
1013 
1015 
1018 
1018 
101B 
101D 
101F 
1023 
1025 
1026 
1028 
1028 
1029 
102c 
102E 
1031 
1035 
1038 
103c 
103F 
1043 
1046 
1047 
1047 
1049 
1049 
104D 
1050 
1053 
1055 
1057 
1059 
105c 
105c 
105F 
1061 
1063 
1067 
1069 
106A 
106c 
106c 
106F 
1073 
1077 
107B 
107F 
1083 
1084 
1086 
1089 
108B 
108c 
1090 
1092 
1094 
1096 


1099 
1099 
109C 
10A1 
10A3 
10A6 
10A9 
10AB 
10AD 
10B0 
10B3 
10B5 
10BA 
10BC 
10BE 
10BE 


8B 56 00 
D2 

oc 

0001 


1EF6 R 
C5 OE 
EA 
ODAB R 


OE55 R 
OE96 R 


3E 0449 R OF 


06 010C R 0000 E 


3E 0449 R 07 


09 
4B 
3E 0449 R 03 
44 
1E 04A8 R 
c3 0c 
c4 iF 
co 
c3 
32 
0007 
8A 00 
FF 
TA 
06 0449 R 
03 
FO 
8A 07 
cs 
0484 R 
8B 47 01 
0485 R 
8B 47 03 
010C R 
8B 47 05 
010E R 
50 
1E 04A8 R 
c3 08 
c4 iF 
co 
c3 
40 
000B 
8A 00 
FF 
36 
06 0449 R 
03 
FO 
8A 27 
8A 47 01 
8B 4F 02 
8B 57 04 
8B 6F 06 
8E 47 08 
Ds 
1110 
10 
8A 47 OA 
FF 
05 
cs 
0484 R 
OCFE R 
3E 0449 R 07 
1E 
10c8 R 
0449 R 
E4 
Ds 
: 8A 07 
0465 R 
30 
3E 0449 R 06 
02 
3F 
0466 R 


2773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2881 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 


IBM Enhanced Graphics Adapter 


CMP 
JA 


ENTRY_2: 


FDG_IT: 


FDG: 


ENTRY_1: 


MS_1: 


SAVE_GRPH: 
LES 
ADD 
LES 
MOV 


SG_1: 


SG_2: 


J4d: 


SAVE_ALPH: 
LES 
ADD 
LES 
MOV 


SA_1: 


AH, 03H 
ENTRY_1 


BRST_DET 


ENTRY_2 
AL,2 


CH_GEN 
DDS 

AH, CRT_MODE 
AH,7 

FDG_IT 
ENTRY_1 


BP,OFFSET CGMN_FDG 
BX, OE00H 


DX, ES: [BP] 
DX, DX 
ENTRY_1 
cx,1 

BP 

DO_MAP2 
BP, 014D 
FDG 


SET_REGS 
BLANK 
PH_5 


DS: ABSO 

DDS 

CRT_MODE, OFH 

Ms_1 

WORD PTR GRX_SET, OFFSET CGMN 


CRT_MODE, 7 
SAVE_GRPH 
SAVE_ALPH 
CRT_MODE, 3 
SAVE_ALPH 


BX, SAVE_PTR 
BX, OCH 

BX,DWORD PTR ES: [BX] 
AX, ES 

AX, BX 

w4g 

SI,07H 


AL, ES: [BX] [SI] 
AL, OFFH 
AHO_DONE 

AL, CRT_MODE 
SG_2 

SI 

sSG_1 


AL, BYTE PTR ES: [BX] 

AL 

ROWS, AL 

AX,WORD PTR ES: [BX] [1] 
POINTS, AX 

AX,WORD PTR ES: [BX] [3] 
WORD PTR GRX_SET,AX 
AX,WORD PTR ES: [BX] [5] 
WORD PTR GRX_SET + 2,AX 


SHORT AHO_DONE 


BX, SAVE_PTR 
BX, 08H 

BX,DWORD PTR ES: [BX] 
AX, ES 

AX, BX 

AHO_DONE 

SI, OBH 


AL, ES: [BX] [SI] 
AL, OFFH 
AHO_DONE 

AL, CRT_MODE 
SA_2 

sI 

SA_1 


AH,ES: 
AL, ES: 
CX,ES: 
DX, ES: 
BP,ES: 
ES,ES: 
BX 

BX, AX 
AX,1110H 

10H 

BX 

AL, ES: [BX] [OAH] 
AL, OFFH 
AHO_DONE 

AL 

ROWS, AL 


[Bx] 

[Bx] [1] 
[Bx] [2] 
[Bx] [4] 
[Bx] [6] 
[Bx] [8] 
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COLOR ALPHA CHAR GEN 
LOAD ALPHA CHAR GEN 


GET CURRENT MODE 
IS IT MONOCHROME 
9X14 FONT 


TABLE POINTER 
14 BYTES PER CHAR 


GET THE ROM SEGMENT 

INTO ES 
GET THE CHAR HEX CODE 
ZERO = NO MORE CHARS 
NO MORE 
DO ONE CHAR AT A TIME 
MOVE TO FIRST CODE POINT 
STORE THE CODE POINT 
ADJUST BP TO NEXT CODE 
DO ANOTHER 


CLEAR OUT THE BUFFER 


JMP AHO_DONE 


,HSSS = SET THE LOW RAM VALUES FOR COMPATIBILITY (3D8 AND 3D9 SAVE BYTES) 


AHO_DONE: 
CALL 


DO_PAL: 


DDS 
CRT_MODE, 7 

DNDCS 

BX, OFFSET COMPAT_MODE 
AL, CRT_MODE 

AH, AH 

BX, AX 

AL, CS: [BX] 
CRT_MODE_SET, AL 

AL, 030H 

CRT_MODE, 6 

DO_PAL 

AL, 03FH 


CRT_PALETTE, AL 
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10C1 2899 DNDCS: 
10C1 8B OE 0460 R 2900 MOV CX, CURSOR_MODE 
10C5 EB 28 90 2901 oMP AHL 
2902 
10c8 2903 COMPAT_MODE LABEL BYTE 
10C8 2C 28 2D 29 2A 2E 2904 DB 02CH, 028H, 02DH, 029H, 02AH, 02EH 
10CE 1E 29 2905 DB 01EH, 029H 
2906 
2907 ral INCLUDE V1-5.INC 
2908 c SUBTTL V1-5. INC 
2909 c PAGE 
2910 c 
10D0 2911 C CALC_CURSOR PROC NEAR 
2912 c ASSUME DS:ABSO 
10D0 80 FD 00 2913 c CMP CH,O ; CHECK FOR FULL HEIGHT 
10D3 75 04 2914 c JNE cc_i ; NORMAL CHECK 
10D5 FE Cl 2915 c INC cL ; ADJUST END VALUE 
10D7 EB OA 2916 c oMP SHORT CALC_OUT 
10D9 2917 c .ce1 
10D9 FE Cl 2918 c INC cL ; ADJUST FOR EGA REGISTERS 
10DB 3A OE 0485 R 2919 ¢ CMP CL, BYTE PTR POINTS ; WILL IT WRAP 
10DF 72 02 2920 c JB CALC_OUT ; NO, ITS OK 
10E1 2A C9 2921 c SUB CL,CL ; EGA METHOD FOR CURSOR END 
10E3 2922 Cc CALC_ouT: 
10E3 51 2923 c PUSH cx ; SAVE CURSOR TYPE VALUE 
10E4 2A CD 2924 c SUB CL, CH ; END — START 
10E6 80 F9 10 2925 c CMP CL,010H ; LOW NIBBLE EQUAL 
10E9 59 2926 c POP cx ; RESTORE 
10EA 75 02 2927 c JNE COMP_4 
10EC FE Cl 2928 c INC cL ; ADD 1 FOR CORRECT CURSOR 
10EE 2929 C COMP_4: 
10EE C3 2930 c RET ; BACK TO CALLER 
10EF 2931 C CALC_CURSOR ENDP 
2932 c 
2933 ¢ 4 
2934 C ; SET_CTYPE SET CURSOR TYPE 
2935 c ; THIS ROUTINE SETS THE CURSOR VALUE 
2936 Cc ; INPUT 
2937 c ; (CX) HAS CURSOR VALUE CH-START LINE, CL-STOP LINE 
2938 Cc ; OUTPUT 
2939 e-y NONE 
2940 a ooo 
= 0004 2941 c CUT_OFF EQU 4 
10EF 2942 Cc AHI 
2943 c ASSUME DS:ABSO 
10EF B4 OA 2944 c MOV AH, C_CRSR_START ; CRTC REG FOR CURSOR SET 
10F1 89 OE 0460 R 2945 c MOV CURSOR_MODE, CX ; SAVE IN DATA AREA 
10F5 F6 06 0487 R 08 2946 c TEST INFO, 8 ; EGA ACTIVE BIT 
10FA 75 33 2947 c JNZ DO_SET ; O=EGA,1=OLD CARDS 
2948 c 
2949 C jo THIS SECTION WILL EMULATE CURSOR OFF ON THE EGA 
2950 c 
10FC 8A C5 2951 c MOV AL, CH ; GET START VALUE 
10FE 24 60 2952 c AND AL, 060H ; TURN OFF CURSOR ? 
1100 3c 20 2953 c CMP AL, 020H ; TEST THE BITS 
1102 75 05 2954 c JNE AH1_A ; SKIP CURSOR OFF 
1104 B9 1E00 2955 c MOV CX, 01E00H ; EMULATE CURSOR OFF 
1107 EB 26 2956 c JMP SHORT DO_SET 
2957 c 
2958 e*s — THIS SECTION : ADJUST THE CURSOR AND TEST FOR ENHANCED OPERATION 
2959 c 
1109 2960 C AHI_LA 
1109 F6 06 0487 R O1 2961 c TEST INFO, 1 ; CURSOR EMULATE BIT 
110E 75 1F 2962 c INZ DO_SET ; O=EMULATE, 1=VALUE AS-IS 
1110 80 3E 0449 R 03 2963 c CMP CRT_MODE, 3 ; POSSIBLE EMULATION 
1115 77 15 2964 c JA AH1_S ; NO,SET THE CURSOR TYPE 
1117 E8 OE9A R 2965 c CALL BRST_DET ; SEE IF EMULATE MODE 
111A 73 10 2966 c gnc AH1_S ; NOT EMULATING 
111¢ 80 FD 04 2967 c CMP CH, CUT_OFF ; TEST START 
111F 76 03 2968 c JBE AH1_B ; SKIP ADJUST 
1121 80 C5 05 2969 c ADD CH,5 ; ADJUST 
1124 2970 Cc AHI_B 
1124 80 F9 04 2971 c CMP CL, CUT_OFF ; TEST END 
1127 76 03 2972 c JBE AH1_S ; SKIP ADJUST 
1129 80 Cl 05 2973 c ADD CL,5 
112c 2974 Cc AHI_S 
112C E8 10D0 R 2975 c CALL CALC_CURSOR ; ADJUST END REGISTER 
112F 2976 C DO_SET: 
112F E8 1135 R 2977 c CALL M16 ; OUTPUT CX REG 
1132 E9 219ER 2978 c oMP V_RET ; RETURN TO CALLER 
2979 c 
2980 C joo THIS ROUTINE OUTPUTS THE CX REGISTER TO THE CRTC REGS NAMED IN AH 
2981 c 
1135 2982 c M16 
1135 8B 16 0463 R 2983 c MOV DX, ADDR_6845 ; ADDRESS REGISTER 
1139 8A C5 2984 c MOV AL, CH ; DATA 
113B E8 OD15 R 2985 c CALL ouUT_Dx ; OUTPUT THE VALUE 
113E FE C4 2986 c INC AH ; NEXT REGISTER 
1140 8A Cl 2987 c MOV AL,CL ; SECOND DATA VALUE 
1142 E8 ODI5 R 2988 c CALL ouT_Dx ; OUTPUT THE VALUE 
1145 ¢3 2989 c RET ; ALL DONE 
2990 c 
2991 A ooo 
2992 Cc ; POSITION 
2993 C3 THIS SERVICE ROUTINE CALCULATES THE REGEN BUFFER 
2994 c ; ADDRESS OF A CHARACTER IN THE ALPHA MODE 
2995 Cc ; INPUT 
2996 C..} AX = ROW,COLUMN POSITION 
2997 Cc ; OUTPUT 
2998 c ; AX = OFFSET OF CHAR POSITION IN REGEN BUFFER 
2999 Cpe n 
1146 3000 C POSITION PROC NEAR 
1146 53 3001 c PUSH BX ; SAVE REGISTER 
1147 8B D8 3002 c MOV BX, AX 
1149 8A C4 3003 c MOV AL, AH ; ROWS TO AL 
114B F6 26 044A R 3004 c MUL BYTE PTR CRT_COLS ; DETERMINE BYTES TO ROW 
114F 32 FF 3005 c XOR BH, BH ; ZERO OUT 
1151 03 C3 3006 c ADD AX, BX ; ADD IN COLUMN VALUE 
1153 D1 EO 3007 c SAL AX,1 ; * 2 FOR ATTRIBUTE BYTES 
1155 5B 3008 c POP BX ; RESTORE REGISTER 
1156 C3 3009 c RET 
1157 3010 C POSITION ENDP 
3011 c 
3012 c ; 
3013 Cc ; SET_CPOS SET CURSOR POSITION 
3014 c ; THIS ROUTINE SETS THE CURRENT CURSOR POSITION TO THE 
3015 ae NEW X-Y VALUES PASSED 
3016 Cc ; INPUT 
3017 C3 DX — ROW,COLUMN OF NEW CURSOR 
3018 c ; BH - DISPLAY PAGE OF CURSOR 
3019 Cc ; OUTPUT 
3020 C} CURSOR IS SET AT CRTC 1F DISPLAY PAGE IS CURRENT 
3021 c 3 DISPLAY 
3022 A ooo 
1157 3023 Cc AH2 
1157 E8 115D R 3024 c CALL SET_CPOS 
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115A 


115D 
115D 
115F 
1161 
1163 
1165 
1169 
116D 
116F 
1171 
1174 
1174 


1175 
1175 
1178 
117A 


117E 
1180 
1182 
1185 
1186 


1186 
1186 
1188 
118A 
118C 
1190 
1194 
1195 
1196 
1197 
1198 
1199 
119A 
119B 
119c 


119D 
119D 
11A0 
11A2 


11A4 
11A9 


11AB 
11AD 
11AF 


11B2 
11B2 
11B4 
11B6 
11B6 
11B8 
11B9 
11BA 
11BD 
11BE 
11BF 
11c0 


1ic1 
1ic1 
11¢7 
11cD 
11D3 
11D9 


11DB 


11DB 
11DF 
11E2 
11E3 
11E5 
11E7 
11E9 


11EC 
11EC 


8B 
83 
EC 
A8 
B4 
74 
EQ 


A8& 


219E R 


CF 
ED 
El 
Fl 
94 
3E 
05 
c2 


0450 R 
0462 R 


1175 R 


DF 
FF 
E3 
97 
OE 


42 


c4 


02 


0450 R 
0460 R 


0487 R 02 


06 


07 07 
00 00 
06 04 
06 04 


0463 R 
06 


05 
00 
04 
07 


3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
3081 
3082 
3083 
3084 
3085 
3086 
3087 
3088 
3089 
3090 
3091 
3092 
3093 
3094 
3095 
3096 
3097 
3098 
3099 
3100 
3101 
3102 
3103 
3104 
3105 
3106 
3107 
3108 
3109 
3110 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3148 
3149 
3150 
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MP V_RET 
SET_CPOS: 
MOV CL, BH 
XOR CH, CH ; ESTABLISH LOOP COUNT 
SAL cx,1 ; WORD OFFSET 
MOV SI,CX ; USE INDEX REGISTER 
MOV [SI+OFFSET CURSOR_POSN] , DX ; SAVE THE POINTER 
CMP ACTIVE_PAGE, BH 
oNZ M17 ; SET_CPOS_RETURN 
MOV AX, DX ; GET ROW/COLUMN TO AX 
CALL M18 ; CURSOR_SET 
M17: ; SET_CPOS_RETURN 
RET 


; — SET CURSOR POSITION,AX HAS ROW/COLUMN FOR CURSOR 





M18 PROC NEAR 
CALL POSITION ; DETERMINE LOC IN REGEN 
MOV CX, AX 
ADD CX, CRT_START ; ADD IN THE START ADDR 
; FOR THIS PAGE 
SAR cx,1 ; / 2 FOR CHAR ONLY COUNT 
MOV AH, C_CRSR_LOC_HGH ; REGISTER NUMBER FOR CURSOF 
CALL M16 ; SET VALUE TO CRTC 
RET 
M18 ENDP 


READ_CURSOR 


THIS ROUTINE READS THE CURRENT CURSOR VALUE FROM 


MEMORY AND SENDS IT BACK TO THE CALLER 


INPUT 
BH = PAGE OF CURSOR 

OUTPUT 
DX = ROW,COLUMN OF THE CURRENT CURSOR POSITION 
cx CURRENT CURSOR MODE 





MOV BL, BH ; PAGE VALUE 

XOR BH, BH ; ZERO UPPER BYTE 

SAL Bx,1 ; WORD OFFSET 

MOV Dx, [BX + OFFSET CURSOR_POSN] ; GET CURSOR FOR THIS PAGE 
MOV CX, CURSOR_MODE ; GET THE CURSOR MODE 
POP DI 

POP sr 

POP BX 

POP AX ; DISCARD CX 

POP AX ; DISCARD DX 

POP DS 

POP ES 

POP BP 

IRET 


AH4 
MOV AL, CRT_MODE 
CMP AL, 07H 
JA READ_LPEN 
TEST INFO, 2 
oz EGA_IS_COLOR 


; MONOCHROME HERE (MONOC BIT 1) 


CMP AL, 07H 
JE READ_LPEN 
MP OLD_LP 


EGA IS COLOR HERE (MONOC BIT 0) 


EGA_IS_COLOR: 





(DH,DL) = ROW,COLUMN OF CURRENT LIGHT PEN 
POSITION 

(CH) = RASTER POSITION (OLD MODES) 

(BX) = RASTER POSITION (NEW MODES) 


BEST GUESS AT PIXEL HORIZONTAL POSITION 


CMP AL, 06H 
JBE READ_LPEN 
OLD_LP: 
INT 42H ; CALL EXISTING CODE 
POP DI 
POP sI 
ADD SP,6 ; DISCARD SAVED BX,CX,DX 
POP DS 
POP ES 
POP BP 
IRET 
pote ae ee a 
; LIGHT PEN 
; THIS ROUTINE TESTS THE LIGHT PEN SWITCH AND THE LIGHT 
; PEN TRIGGER, IF BOTH ARE SET, THE LOCATION OF THE LIGHT 
; PEN IS DETERMINED, OTHERWISE, A RETURN WITH NO 
; INFORMATION IS MADE. 
; ON EXIT 
; (AH) = 0 IF NO LIGHT PEN INFORMATION IS AVAILABLE 
; BX,CX,DX ARE DESTROYED 
; (AH) = 1 IF LIGHT PEN IS AVAILABLE 
i 
i 
; 
i 
; 


(BX) 


ASSUME CS:CODE,DS:ABSO 
SUBTRACT_TABLE 


v1 LABEL BYTE 
DB 006H, 006H, 007H,007H,005H,005H jj; 0-5 
DB 004H, 005H,000H,000H,000H,000H j; 6-B 
DB 000H, 005H, 006H,004H,004H,004H jj; C-11 
DB 004H, 006H, 006H,004H,007H,004H ; 12-17 
DB 007H, 004H ; 18-19 

READ_LPEN PROC NEAR 

jcc WAIT FOR LIGHT PEN TO BE DEPRESSED 
MOV DX, ADDR_6845 ; GET BASE ADDRESS OF 6845 
ADD Dx, 6 ; POINT TO STATUS REGISTER 
IN AL, DX ; GET STATUS REGISTER 
TEST AL,4 ; TEST LIGHT PEN SWITCH 
MOV AH,O ; SET NO LIGHT PEN RETURN 
IZ v9 ; CODE 
JMP vé ; NOT SET, RETURN 

icc NOW TEST FOR LIGHT PEN TRIGGER 

v9: 
TEST AL,2 ; TEST LIGHT PEN TRIGGER 
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11EE 75 03 3151 c oNZ V7A ; RETURN WITHOUT RESETTING 
3152 c ; TRIGGER 
11FO E9 129BR 3153 c MP v7 ; EXT LIGHT PEN ROUTINE 
3154 c 
3155 C yoo TRIGGER HAS BEEN SET,READ THE VALUE IN 
3156 c 
11F3 3157 Cc V7A 
11F3 B4 10 3158 c MOV AH, 16 ; LIGHT PEN REGISTERS 
3159 c 
3160 C poe INPUT REGS POINTED TO BY AH,AND CONVERT TO ROW COLUMN IN DX 
3161 c 
11F5 8B 16 0463 R 3162 c MOV DX, ADDR_6845 ; ADDRESS REGISTER 
11F9 8A C4 3163 c MOV AL, AH ; REGISTER TO READ 
11FB EE 3164 c out Dx, AL ; SET IT UP 
11FC 42 3165 c INC DX ; DATA REGISTER 
11FD 50 3166 c PUSH AX 
11FE EC 3167 c IN AL, DX ; GET THE VALUE 
11FF 8A E8 3168 c MOV CH, AL ; SAVE IN CX 
1201 58 3169 c POP 
1202 4A 3170 c DEC DX ; ADDRESS REGISTER 
1203 FE C4 3171 c INC AH 
1205 8A c4 3172 c MOV AL, AH ; SECOND DATA REGISTER 
1207 EE 3173 c out Dx, AL 
1208 42 3174 c INC DX ; POINT TO DATA REGISTER 
1209 EC 3175 c IN AL, DX ; GET THE 2ND DATA VALUE 
120A 8A E5 3176 c MOV AH, CH ; AX HAS INPUT VALUE 
3177 c 
3178 C poo AX HAS THE VALUE READ IN FROM THE 6845 
3179 c 
120C 8A 1E 0449 R 3180 c MOV BL, CRT_MODE 
1210 2A FF 3181 c SUB BH, BH ; MODE VALUE TO BX 
1212 2E: 8A 9F 11C1 R 3182 c MOV BL, CS:V1 [BX] ; AMOUNT TO SUBTRACT 
1217 2B c3 3183 c SUB AX, BX ; TAKE IT AWAY 
1219 8B 1E O44E R 3184 c MOV BX, CRT_START ; SCREEN ADDRESS 
121D D1 EB 3185 c SHR BX,1 ; DIVIDE BY 2 
121F 2B C3 3186 c SUB AX, BX ; ADJUST TO ZERO START 
1221 79 02 3187 c JNS v2 ; IF POSITIVE, GET MODE 
1223 2B co 3188 c SUB AX, AX ; <0 PLAYS AS 0 
3189 c 
3190 C poo DETERMINE MODE OF OPERATION 
3191 c 
1225 3192 c v2: ; DETERMINE MODE 
1225 B1 03 3193 c MOV CL,3 ; SET *8 SHIFT COUNT 
1227 80 3E 0449 R 04 3194 c CMP CRT_MODE, 4 ; GRAPHICS OR ALPHA 
122c 72 4D 3195 c JB v4 ; ALPHA_PEN 
122E 80 3E 0449 R 07 3196 c CMP CRT_MODE, 7 
1233 74 46 3197 c JE v4 ; ALPHA_PEN 
3198 c 
1235 80 3E 0449 R 06 3199 c CMP CRT_MODE, 06H 
123A 77 28 3200 c JA v8 
123c 75 02 3201 c INE v8x 
123E D1 E8 3202 c SHR AX,1 
3203 c 
3204 Cu} - OLD GRAPHICS MODES 
3205 c 
1240 3206 c v8x 
1240 B2 28 3207 c MOV DL, 40 ; DIVISOR FOR GRAPHICS 
1242 F6 F2 3208 c DIV DL ; ROW(AL) AND COLUMN (AH) 
3209 c ; AL RANGE 0-99, 
3210 c ; AH RANGE 0-39 
3211 C poo DETERMINE GRAPHIC ROW POSITION 
3212 c 
1244 8A E8 3213 c MOV CH, AL ; SAVE ROW VALUE IN CH 
1246 02 ED 3214 c ADD CH, CH ; *2 FOR EVEN/ODD FIELD 
1248 8A DC 3215 c MOV BL, AH ; COLUMN VALUE TO BX 
124A 2A FF 3216 c SUB BH, BH ; *8 FOR MEDIUM RES 
124C 80 3E 0449 R 06 3217 c CMP CRT_MODE, 6 ; MEDIUM OR HIGH RES 
1251 75 04 3218 c INE v3 ; NOT_HIGH_RES 
1253 B1 04 3219 c MOV CL,4 ; SHIFT VALUE FOR HIGH RES 
1255 DO E4 3220 c SAL AH,1 ; COLUMN VALUE *2 FOR HIGH RES 
1257 3221 Cc v3: ; NOT_HIGH_RES 
1257 D3 E3 3222 c SHL BX, CL ; *16 FOR HIGH RES 
3223 c 
3224 C poo DETERMINE ALPHA CHAR POSITION 
3225 c 
1259 8A D4 3226 c MOV DL, AH ; COLUMN VALUE FOR RETURN 
125B 8A FO 3227 c MOV DH, AL ; ROW VALUE 
125D DO EE 3228 c SHR DH,1 ; DIVIDE BY 4 
125F DO EE 3229 c SHR DH,1 ; FOR VALUE IN 0-24 RANGE 
1261 EB 2c 90 3230 c MP v5 ; LIGHT_PEN_RETURN_SET 
1264 3231 c v8: 
3232 c 
3233 C poe NEW GRAPHICS MODES 
3234 c 
1264 99 3235 c cwWD ; PREPARE TO DIVIDE 
1265 F7 36 044A R 3236 c DIV CRT_COLS ; AX = ROW, DX = GOLUMN 
1269 8B DA 3237 c MOV BX, DX ; SAVE REMAINDER 
126B D3 E3 3238 c SAL BX, CL ; PEL COLUMN 
126D 8B C8 3239 c MOV CX, AX ; PEL ROW 
126F 52 3240 c PUSH DX ; SAVE FROM DIVIDE 
1270 99 3241 c CwWD ; PREPARE TO DIVIDE 
1271 F7 36 0485 R 3242 c DIV POINTS ; BIVIDE BY BYTES/CHAR 
1275 5A 3243 c POP DX ; RECOVER 
1276 8A FO 3244 c MOV DH, AL ; GHARACTER ROW 
1278 EB 15 90 3245 c MP v5 
3246 c 
3247 C poo ALPHA MODE ON LIGHT PEN 
3248 c 
127B 3249 c v4: ; ALPHA_PEN 
127B F6 36 044A R 3250 c DIV BYTE PTR CRT_COLS ; ROW,COLUMN VALUE 
127F 8A FO 3251 c MOV DH, AL ; ROWS TO DH 
1281 8A D4 3252 c MOV DL, AH ; COLS TO DL 
1283 8A DC 3253 c MOV BL, AH ; COLUMN VALUE 
1285 32 FF 3254 c XOR BH, BH ; TO BX 
1287 D3 E3 3255 c SAL BX, CL 
1289 F6 26 0485 R 3256 c MUL BYTE PTR POINTS 
128D 8B C8 3257 c MOV CX, AX 
128F 3258 c VS: ; LIGHT_PEN_RETURN_SET 
128F B4 01 3259 c MOV AH,1 ; INDICATE EVERTHING SET 
1291 3260 c vé6: ; LIGHT_PEN_RETURN 
1291 52 3261 c PUSH DX ; SAVE RETURN VALUE 
3262 c ; (IN CASE) 
1292 8B 16 0463 R 3263 c MOV DX, ADDR_6845 ; GET BASE ADDRESS 
1296 83 C2 07 3264 c ADD DX,7 ; POINT TO RESET PARM 
1299 EE 3265 c out DX, AL ; ADDRESS, NOT DATA, 
3266 c ; IS IMPORTANT 
129A 5A 3267 c POP DX ; RECOVER VALUE 
129B 3268 Cc v7: ; RETURN_NO_RESET 
129B 5F 3269 c POP DI 
129¢ 5E 3270 c POP sI 
129D 83 C4 06 3271 c ADD SP,6 ; DISCARD SAVED BX,CX,DX 
12A0 1F 3272 c POP DS 
12Al 07 3273 c POP ES 
12A2 5D 3274 c POP BP 
12A3. CF 3275 c IRET 
12A4 3276 C READ_LPEN ENDP 
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12A4 
12A4 
12A7 


12AB 
12ac 
12AD 


12AaF 


12B2 
12B4 
12B8 
12BB 
12BD 
12BD 
12BF 
12BF 
12c1 
12c4 
12c5 
12C7 
12CB 
12CE 


12D1 
12D1 
12D2 
12D4 
12D6 
12D8 
12DA 
12DB 
12DD 
12DF 
12DF 
12E0 


12E0 
12E0 


12E1 
12E2 
12E5 
12E9 
12EA 
12EA 
12EB 
12ED 
12EF 
12F0 
12F1 
12F3 
12F4 
12F5 
12F7 
12F9 
12FA 
12FC 
12FD 
12FE 


12FE 
12FE 


12FF 
1300 
1303 
1307 
1308 
1308 
1309 
130B 
130D 
130E 
130F 
1311 
1312 
1313 
1315 
1317 
1318 
131A 
131B 
131c 


131c 
131c 
131D 
131F 
1321 
1324 
1327 
1328 
132A 
132Cc 
132E 
132F 
1331 
1332 
1334 
1335 
1337 
1339 
133B 
133E 
133F 
1341 
1343 
1344 


A2 0462 R 
8B OE 044C R 


F7 El 


A3 044E R 


8B C8 

8A 1E 0449 R 
80 FB 07 

77 02 


D1 FO 


B4 oc 
E8 1135 R 


D1 E3 

8B 87 0450 R 
E8 1175 R 
E9 219E R 


8A E6 
2A E5 
FE C4 
3A EO 


75 02 
2A CO 


E8 OCFE R 
8B 1E 044A R 


E8 OCFE R 
8B 1E 044A R 


3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3324 
3325 
3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 
3345 
3346 
3347 
3348 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3360 
3361 
3362 
3363 
3364 
3365 
3366 
3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
3380 
3381 
3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 


IBM Enhanced Graphics Adapter 


aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 


agaaaaaaaaaaaNaaNaANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANAANANANANANANA 


August 2, 1984 


SELECT ACTIVE DISPLAY PAGE 


ACT_DISP_PAGE 


INPUT 


OUTPUT 


AL HAS THE NEW ACTIVE DISPLAY PAGE 


THE CRTC IS RESET TO DISPLAY THAT PAGE 


THIS ROUTINE SETS THE ACTIVE DISPLAY PAGE, ALLOWING 
FOR MULTIPLE PAGES OF DISPLAYED VIDEO. 


SUBTTL 
INCLUDE 
SUBTTL 
PAGE 
FLTA PROC 
PUSH 


MOV 
SUB 


LTA: 
FLTA ENDP 


CRANK PROC 


CRANK_A: 


CRANK ENDP 


CRANK_4 PROC 


CRANK_B: 


CRANK_4 ENDP 


PART_1 PROC 


ACTIVE_PAGE, AL 
CX, CRT_LEN 


AX 
cx 


CRT_START, AX 


CX, AX 
BL, CRT_MODE 
BL,7 

ADP_1 


cx,1 


AH, C_STRT_HGH 

M16 

BX 

BX,1 

AX, [BX + OFFSET CURSOR_POSN] 
M18 

V_RET 


VSCROLL. INC 
VSCROLL. INC 


NEAR 
BX 

DS:ABSO 

DS 

DDS 

BX, CRT_COLS 
DS 


cx 
CL,DL 
CH, CH 
SI 


BX 
DS:ABSO 

DS 

DDS 

BX, CRT_COLS 
DS 


cx 
CL,DL 
CH, CH 
SI 


DX 
DH, 3 

DL, SEQ_ADDR 
AX, 020FH 
OUT_DX 


DH, 3 


AH, 02H 


SAVE ACTIVE PAGE VALUE 
GET SAVED LENGTH OF 
REGEN BUFFER 

CONVERT AL TO WORD 
SAVE PAGE VALUE 

DISPLAY PAGE TIMES 
REGEN LENGTH 

SAVE START ADDRESS FOR 
LATER REQUIREMENTS 
START ADDRESS TO CX 


DO NOT DIVIDE BY TWO 


/ 2 FOR CRTC HANDLING 
REG FOR START ADDRESS 


RECOVER PAGE VALUE 
*2 FOR WORD OFFSET 
GET CURSOR FOR THIS PAGE 
SET THE CURSOR POSITION 


CHECK FOR SCROLL COUNT 


LOWER ROW 
UPPER ROW 
NUMBER TO SCROLL 
SAME AS REQUESTED 


YES, SET TO 0 FOR BLANK 


MOVE ROWS OF PELS UP 


SAVE DATA SEGMENT 
SET DATA SEGMENT 


SAVE MOVE COUNT 
COLUMN COUNT 
CLEAR HIGH BYTE 
SAVE POINTERS 


MOVE THAT ROW 
RECOVER POINTERS 


NEXT ROW 

NEXT ROW 

RECOVER ROW COUNT 
DO MORE 


RETURN TO CALLER 


MOVE ROWS OF PELS DOWN 


SAVE DATA SEGMENT 
SET DATA SEGMENT 


SAVE MOVE COUNT 
COLUMN COUNT 
CLEAR HIGH BYTE 
SAVE POINTERS 


MOVE THAT ROW 
RECOVER POINTERS 


NEXT ROW 

NEXT ROW 

RECOVER ROW COUNT 
DO MORE 


RETURN TO CALLER 


FILL ROW AFTER SCROLL 


SEQUENCER 
MAP MASK 
ALL MAPS ON 


ZERO 
COLUMN COUNT 


SAVE POINTER 

CLEAR ONE ROW OF PELS 
RECOVER POINTER 

GET COLOR VALUE 


SEQUENCER 
MAP MASK 
SET THE COLOR 


ALL BITS ON 

COLUMN COUNT 

SAVE POINTER 

TURN ON THOSE BITS IN 
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1346 
1347 
1348 


1348 
1348 
134A 
134c 
134F 
1352 
1353 


1353 
1353 


1354 
1357 
1359 
135B 
135c 
135D 
135F 
1363 
1365 
1366 


1367 


1368 
1368 


136B 
136C 
136F 
1373 
1374 
1375 
1377 
137A 
137B 


137B 
137B 


137C¢ 
137F 
1381 
1383 
1384 
1385 
1387 
138B 
138D 
138E 


138F 


1390 
1390 


1393 
1394 
1397 
139B 
139C 
139D 
139F 
13A2 
13A3 


13A3 
13A3 
13A5 
13A8 
13AB 
13AD 
13B0 
13B2 
13B5 
13B5 
13B6 
13B8 
13BB 
13BD 
13BF 
13¢c1 
13c3 
13c3 
13C6 
13c8 
13CA 
13cc 
13CE 
13CE 
13CF 
13D1 
13D1 
13D4 
13D6 
13D8 
13DA 
13DA 
13DD 
13E2 
13E4 
13E7 
13EA 
13EB 
13EB 


5F 
c3 


OCFE R 
F7 
FF 


c3 
26 0485 R 
Ds 


131C R 


OCFE R 
3E 044A R 


Fl 
1348 R 


OCFE R 
F7 
FF 


c3 
26 0485 R 
Ds 


131C R 


OCFE R 
3E 044A R 


Fl 
1348 R 
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143B R 
FD 
CB 
F7 


OCFE R 
3E 0449 R 07 


3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 
3438 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
3471 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3481 
3482 
3483 
3484 
3485 
3486 
3487 
3488 
3489 
3490 
3491 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
3500 
3501 
3502 
3503 
3504 
3505 
3506 
3507 
3508 
3509 
3510 
3511 
3512 
3513 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
3523 
3524 
3525 
3526 
3527 
3528 
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August 2, 1984 


ENABLED PLANES 


POP DI ; RECOVER POINTER 
RET ; RETURN TO CALLER 
PART_1 ENDP 
PART_2 PROC NEAR 
MOV DH, 3 
MOV DL, SEQ_ADDR ; SEQUENCER 
MOV AX, 020FH ; MAP MASK, ALL MAPS 
CALL OUT_DX ; ENABLE THE MAPS 
RET ; RETURN TO CALLER 
PART_2 ENDP 
BLNK_3 PROC NEAR ; BLANK FOR SCROLL UP 
PUSH DS ; SAVE DATA SEGMENT 
ASSUME DS:ABSO 
CALL DDS ; GET LOW MEMORY SEGMENT 
MOV DH, BH ; ATTRIBUTE FOR BLANK LINE 
SUB BH, BH ; CLEAR HIGH BYTE 
PUSH AX ; SAVE 
PUSH Dx ; SAVE BECAUSE OF MULTIPLY 
MOV AX, BX ; ROW COUNT 
MUL POINTS ; CHARACTER HEIGHT 
MOV BX, AX ; NET VALUE TO BX 
POP Dx ; RECOVER 
POP AX 
POP DS 
ASSUME DS:NOTHING 
$13: 
CALL PART_1 ; BLANK OUT ROW WITH COLOR 
ASSUME DS:ABSO 
PUSH DS ; SAVE SEGMENT 
CALL DDS ; LOW MEMORY SEGMENT 
ADD DI, CRT_COLS ; NEXT ROW 
POP DS ; RECOVER 
DEC BX ; NEXT 
JNZ s13 ; DO MORE 
CALL PART_2 
RET ; RETURN TO CALLER 
BLNK_3 ENDP 
BLNK_4 PROC NEAR ; BLANK FOR SCROLL DOWN 
PUSH DS ; SAVE DATA SEGMENT 
ASSUME DS:ABSO 
CALL DDS ; GET LOW MEMORY SEGMENT 
MOV DH, BH ; ATTRIBUTE FOR BLANK LINE 
SUB BH, BH ; CLEAR HIGH BYTE 
PUSH AX ; SAVE 
PUSH Dx ; SAVE BECAUSE OF MULTIPLY 
MOV AX, BX ; ROW COUNT 
MUL POINTS ; CHARACTER HEIGHT 
MOV BX, AX ; NET VALUE TO BX 
POP Dx ; RECOVER 
POP AX 
POP DS 
ASSUME DS:NOTHING 
$13_4: 
CALL PART_1 ; BLANK OUT ROW WITH COLOR 
ASSUME DS:ABSO 
PUSH DS ; SAVE SEGMENT 
CALL DDS ; LOW MEMORY SEGMENT 
SUB DI, CRT_COLS ; NEXT ROW 
POP DS ; RECOVER 
DEC BX ; NEXT 
JNZ $13_4 ; DO MORE 
CALL PART_2 
RET ; RETURN TO CALLER 
BLNK_4 ENDP 
jooe----------------------------------------------------- 
; SCROLL UP 
; THIS ROUTINE MOVES A BLOCK OF CHARACTERS UP 
; ON THE SCREEN 
; INPUT 
; (AH) = CURRENT CRT MODE 
; (AL) NUMBER OF ROWS TO SCROLL 
; (CX) ROW/COLUMN OF UPPER LEFT CORNER 
; (DX) ROW/COLUMN OF LOWER RIGHT CORNER 
; (BH) ATTRIBUTE TO BE USED ON BLANKED LINE 
; (DS) DATA SEGMENT 
; (ES) REGEN BUFFER SEGMENT 
; OUTPUT 
; NONE -- THE REGEN BUFFER IS MODIFIED 
; 
ASSUME CS:CODE,DS:ABS0O,ES:NOTHING 
SCROLL_UP PROC NEAR 
MOV BL,AL ; SAVE LINE COUNT IN BL 
CALL MK_ES 
CMP AH,4 ; TEST FOR GRAPHICS MODE 
JB N1 ; HANDLE SEPERATELY 
CMP AH,7 ; TEST FOR BW CARD 
JE N1 
JMP GRAPHICS_UP 
N1: ; UP_CONTINUE 
PUSH BX ; SAVE FILL ATTR IN BH 
MOV AX,CX ; UPPER LEFT POSITION 
CALL SCROLL_POSITION ; DO SETUP FOR SCROLL 
IZ N7 ; BLANK_FIELD 
ADD SI,AX ; FROM ADDRESS 
MOV AH, DH ; ROWS IN BLOCK 
SUB AH, BL ; 4 ROWS TO BE MOVED 
N2: ; ROW_LOOP 
CALL N10 ; MOVE ONE ROW 
ADD SI, BP 
ADD DI,BP ; NEXT LINE IN BLOCK 
DEC AH ; COUNT OF LINES TO MOVE 
INZ N2 ; ROW_LOOP 
N3: ; CLEAR_ENTRY 
POP AX ; RECOVER ATTRIBUTE IN AH 
MOV AL,’ ’ ; FILL WITH BLANKS 
N4: ; CLEAR_LOOP 
CALL N11 ; CLEAR THE ROW 
ADD DI,BP ; POINT TO NEXT LINE 
DEC BL ; LINES TO SCROLL 
INZ N4 ; CLEAR_LOOP 
N5: ; SCROLL_END 
CALL DDS 
CMP CRT_MODE, 7 ; IS THIS THE B/W CARD 
JE N6 ; SKIP THE MODE RESET 
MOV AL, CRT_MODE_SET ; GET THE MODE SET 
MOV DX, 03D8H ; ALWAYS SET COLOR CARD 
our DX, AL 
N6: ; VIDEO_RET_HERE 
JMP V_RET 
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13EE 
13EE 
13F0 
13F2 


13F2 
13F2 
13F7 


13F9 
13FA 
13FC 
13FE 
13FF 
13FF 
1400 
1402 
1404 
1406 
1408 
1409 
140A 
140B 
140B 
140E 
1412 
1414 
1416 
1418 
141A 
141¢ 
141E 
1422 
1424 
1426 
142A 
142c 
142D 
142E 
1431 
1432 


1432 
1432 
1434 
1435 
1436 
1438 
1439 
143A 
143B 


143B 
143B 
143D 
143E 
1440 
1441 
1442 


1442 
1442 
1443 
1445 
1448 
1449 
144B 
144E 
1450 
1452 
1454 
1456 
1456 
1459 
145B 
145D 
145F 
1461 
1461 
1462 
1464 
1464 
1467 
1469 
146B 
146D 
1470 
1470 
1472 
1474 


8A 
EB 


F6 
74 


DE 
Dc 


06 0487 R 04 
12 


2E 044A R 


26 044A R 


Ds 
16EB R 


c2 
13F2 R 
20 
FO 
E6 
E3 


1432 R 
F5 
FD 
cc 
F5 
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143B R 
FD 
CB 
F7 
13DA R 


DE 
ED 


3529 
3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 
3547 
3548 
3549 
3550 
3551 
3552 
3553 
3554 
3555 
3556 
3557 
3558 
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3568 
3569 
3570 
3571 
3572 
3573 
3574 
3575 
3576 
3577 
3578 
3579 
3580 
3581 
3582 
3583 
3584 
3585 
3586 
3587 
3588 
3589 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
3611 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
3624 
3625 
3626 
3627 
3628 
3629 
3630 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3638 
3639 
3640 
3641 
3642 
3643 
3644 
3645 
3646 
3647 
3648 
3649 
3650 
3651 
3652 
3653 
3654 
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N7: 
MOV BL, DH 
JMP N3 
SCROLL_UP ENDP 
icc HANDLE COMMON SCROLL SET UP HERE 
SCROLL_POSITION PROC NEAR 
TEST INFO, 4 
JZ NO 
icc 80X25 COLOR CARD SCROLL 
PUSH Dx 
MOV DH, 3 
MOV DL, ODAH 
PUSH AX 
N8: 
IN AL, DX 
TEST AL,8 
JZ Ns 
MOV AL, 25H 
MOV DL, OD8H 
OUT DX, AL 
POP AX 
POP Dx 
NO: 
CALL POSITION 
ADD AX, CRT_START 
MOV DI,AX 
MOV SI,AX 
SUB Dx, CX 
INC DH 
INC DL 
XOR CH, CH 
MOV BP, CRT_COLS 
ADD BP, BP 
MOV AL, BL 
MUL BYTE PTR CRT_COLS 
ADD AX, AX 
PUSH ES 
POP DS 
CMP BL, 0 
RET 


SCROLL_POSITION ENDP 


poco MOVE_ROW 

N10 PROC NEAR 
MOV CL,DL 
PUSH sI 
PUSH DI 
REP MOVSW 
POP DI 
POP sI 
RET 

N10 ENDP 

poco CLEAR_ROW 

N11 PROC NEAR 
MOV CL,DL 
PUSH DI 
REP sTOSW 
POP DI 
RET 

N11 ENDP 


SCROLL_DOWN 
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; BLANK_FIELD 
; GET ROW COUNT 
; GO CLEAR THAT AREA 


; COLOR CARD HERE 
; WAIT_DISP_ENABLE 


; WAIT FOR VERT RETRACE 
; WAIT_DISP_ENABLE 


; DX=3D8 
; TURN OFF VIDEO 
; DURING VERTICAL RETRACE 


CONVERT TO REGEN POINTER 
OFFSET OF ACTIVE PAGE 

TO ADDRESS FOR SCROLL 
FROM ADDRESS FOR SCROLL 
DX = #ROWS, #COLS 


INCREMENT FOR 0 ORIGIN 
ZERO HIGH BYTE OF COUNT 
NUM OF COLS IN DISPLAY 
TIMES 2 FOR ATTR BYTE 
GET LINE COUNT 

OFFSET TO FROM ADDRESS 
*2 FOR ATTRIBUTE BYTE 
ESTABLISH ADDRESSING 
FOR BOTH POINTERS 

0 MEANS BLANK FIELD 
RETURN WITH FLAGS SET 


; GET # OF COLS TO MOVE 


; SAVE START ADDRESS 
; MOVE THAT LINE ON SCREEN 


; RECOVER ADDRESSES 


; GET # COLUMNS TO CLEAR 


; STORE THE FILL CHARACTER 


THIS ROUTINE MOVES THE CHARACTERS WITHIN A 
DEFINED BLOCK DOWN ON THE SCREEN, FILLING THE 


TOP LINES WITH A DEFINED CHARACTER 





; LINE COUNT TO BL 

; SAVE ATTRIBUTE IN BH 
; LOWER RIGHT CORNER 

; GET REGEN LOCATION 

; SI IS FROM ADDRESS 


; COUNT TO MOVE IN SCROLL 


; RECOVER ATTRIBUTE IN AH 


; 
i 
; 
i 
i 
; INPUT 
; (AH) CURRENT CRT MODE 
; (AL) NUMBER OF LINES TO SCROLL 
; (CX) UPPER LEFT CORNER OF REGION 
; (DX) LOWER RIGHT CORNER OF REGION 
; (BH) FILL CHARACTER 
; (DS) DATA SEGMENT 
; (ES) REGEN SEGMENT 
; OUTPUT 
; NONE -- SCREEN IS SCROLLED 
i 
SCROLL_DOWN PROC NEAR 
sTD ; SCROLL DOWN 
MOV BL, AL 
CALL MK_ES 
PUSH BX 
MOV AX, DX 
CALL SCROLL_POSITION 
JZ N16 
SUB SI,AX 
MOV AH, DH ; GET TOTAL ROWS 
SUB AH, BL 
N13: 
CALL N10 ; MOVE ONE ROW 
SUB SI,BP 
SUB DI, BP 
DEC AH 
JNZ N13 
N14: 
POP AX 
MOV AL,’ ’ 
N15: 
CALL N11 ; CLEAR ONE ROW 
SUB DI,BP ; GO TO NEXT ROW 
DEC BL 
JNZ N15 
MP N5 ; SCROLL_END 
N16: 
MOV BL, DH 
JUMP N14 
SCROLL_DOWN ENDP 
SCROLL UP 
THIS ROUTINE SCROLLS UP THE INFORMATION ON THE CRT 
ENTRY 


CH,CL = UPPER LEFT CORNER OF REGION TO SCROLL 


BOTH OF THE ABOVE ARE IN CHARACTER POSITIONS 


BH = FILL VALUE FOR BLANKED LINES 


AL = # LINES TO SCROLL (AL=0 MEANS BLANK THE ENTIRE 


FIELD) 
DATA SEGMENT 


DS 


7 
7 
; 
; 
; 
; DH,DL = LOWER RIGHT CORNER OF REGION TO SCROLL 
; 
7 
7 
; 
; 
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3655 e > ES = REGEN SEGMENT 
3656 Cc ; EXIT 
3657 C3 NOTHING, THE SCREEN IS SCROLLED 
3658 oo 
1474 3659 C GRAPHICS_UP PROC NEAR 
1474 8A D8 3660 c MOV BL, AL ; SAVE LINE COUNT IN BL 
1476 8B Cl 3661 c MOV AX, CX ; GET UPPER LEFT POSITION 
3662 c ; INTO AX REG 
3663 c 
3664 ome: — USE CHARACTER SUBROUTINE FOR POSITIONING 
3665 Cc: — ADDRESS RETURNED IS MULTIPLIED BY 2 FROM CORRECT VALUE 
3666 c 
1478 E8 16A7 R 3667 c CALL GRAPH_POSN 
147B 8B F8 3668 c MOV DI,AX ; SAVE RESULT AS 
3669 c ; DESTINATION ADDRESS 
3670 c 
3671 C joo DETERMINE SIZE OF WINDOW 
3672 c 
147D 2B D1 3673 c SUB DX, CX 
147F 81 C2 0101 3674 c ADD DX, 101H ; ADJUST VALUES 
1483 DO E6 3675 fe) SAL DH, 1 ; MULTIPLY ROWS BY 4 
3676 c ; SINCE 8 VERT DOTS/CHAR 
1485 DO E6 3677 c SAL DH, 1 ; AND EVEN/ODD ROWS 
3678 c 
3679 C jo DETERMINE CRT MODE 
3680 c 
1487 80 3E 0449 R 06 3681 c CMP CRT_MODE, 6 ; TEST FOR MEDIUM RES 
148c 73 04 3682 c onc R7 ; FIND_SOURCE 
3683 fey 
3684 C jo MEDIUM RES UP 
3685 c 
148E DO E2 3686 c SAL DL,1 ; * 2, 
1490 D1 E7 3687 c SAL DI,1 ; SINCE 2 BYTES/CHAR 
3688 c 
3689 c 
3690 c 
1492 3691 Cc RT: ; FIND_SOURCE 
1492 06 3692 c PUSH ES ; GET SEGMENTS BOTH 
1493 1F 3693 c POP DS ; POINTING TO REGEN 
1494 2A ED 3694 c SUB CH, CH ; 0 TO HIGH OF COUNT REG 
1496 DO E3 3695 c SAL BL, 1 ; NUMBER OF LINES *4 
1498 DO E3 3696 c SAL BL, 1 
149A 74 2D 3697 c oz R11 ; IF 0, BLANK ENTIRE FIELD 
149¢ 8A C3 3698 c MOV AL, BL ; NUMBER OF LINES IN AL 
149E B4 50 3699 c MOV AH, 80 ; 80 BYTES/ROW 
14A0 F6 E4 3700 c MUL AH ; OFFSET TO SOURCE 
14A2 8B F7 3701 c MOV SI,DI ; SET UP SOURCE 
14Aa4 03 FO 3702 c ADD SI,AX ; ADD IN OFFSET TO IT 
14A6 8A E6 3703 c MOV AH, DH ; NUMBER OF ROWS IN FIELD 
14Aa8 2A E3 3704 c SUB AH, BL ; DETERMINE NUMBER TO MOVE 
3705 c 
3706 C jo LOOP THROUGH, MOVING ONE ROW AT A TIME, BOTH EVEN AND ODD FIELDS 
3707 c 
140A 3708 Cc RS: ; ROW_LOOP 
14AA E8 14CD R 3709 c CALL R17 ; MOVE ONE ROW 
14AD 81 EE 1FBO 3710 c SUB SI, 2000H-80 ; MOVE TO NEXT ROW 
14B1 81 EF 1FBO 3711 c SUB DI, 2000H-80 
14B5 FE CC 3712 c DEC AH ; NUMBER OF ROWS TO MOVE 
14B7 (75 F1 3713 c INZ R8 ; CONTINUE TILL ALL MOVED 
3714 c 
3715 C jo FILL IN THE VACATED LINE (S) 
3716 c 
14B9 3717 Cc RQ: ; CLEAR_ENTRY 
14B9 8A C7 3718 c MOV AL, BH ; ATTRIBUTE TO FILL WITH 
14BB 3719 c R10 
14BB E8 14E6 R 3720 c CALL R18 ; CLEAR THAT ROW 
14BE 81 EF 1FBO 3721 c SUB DI, 2000H-80 ; POINT TO NEXT LINE 
14C2 FE CB 3722 c DEC BL ; NUMBER OF LINES TO FILL 
14c4 (75 F5 3723 c JNZ R10 ; CLEAR_LOOP 
14C6 EQ 219E R 3724 c oMP V_RET 
14c9 3725 c R11: ; BLANK_FIELD 
14c9 8A DE 3726 c MOV BL, DH ; SET BLANK COUNT TO 
3727 c ; EVERYTHING IN FIELD 
14CB EB EC 3728 c oMP RQ ; CLEAR THE FIELD 
14cD 3729 C GRAPHICS_UP ENDP 
3730 c 
3731 C jo ROUTINE TO MOVE ONE ROW OF INFORMATION 
3732 c 
14cD 3733 Cc R17 PROC NEAR 
14CD 8A CA 3734 c MOV CL,DL ; NUM OF BYTES IN THE ROW 
14CF 56 3735 c PUSH SI 
14D0 57 3736 c PUSH DI ; SAVE POINTERS 
14D1 F3/ a4 3737 c REP MOVSB ; MOVE THE EVEN FIELD 
14D35F 3738 c POP DI 
14D4 (5E 3739 ¢ POP SI 
14D5 81 C6 2000 3740 c ADD SI, 2000H 
14D9 81 C7 2000 3741 c ADD DI, 2000H ; POINT TO THE ODD FIELD 
14DD 56 3742 c PUSH SI 
14DE 57 3743 c PUSH DI ; SAVE THE POINTERS 
14DF 8A CA 3744 c MOV CL, DL ; COUNT BACK 
14E1 F3/ a4 3745 c REP MOVSB ; MOVE THE ODD FIELD 
14E3 5F 3746 c POP DI 
14E4 5E 3747 c POP SI ; POINTERS BACK 
14E5 C3 3748 c RET ; RETURN TO CALLER 
14E6 3749 Cc R17 ENDP 
3750 c 
3751 C jo CLEAR A SINGLE ROW 
3752 c 
14E6 3753 c R18 PROC NEAR 
14E6 8A CA 3754 c MOV CL,DL ; NUMBER OF BYTES IN FIELD 
14E8 57 3755 c PUSH DI ; SAVE POINTER 
14E9 F3/ AA 3756 c REP STOSB ; STORE THE NEW VALUE 
14EB 5F 3757 c POP DI ; POINTER BACK 
14EC 81 C7 2000 3758 c ADD DI, 2000H ; POINT TO ODD FIELD 
14FO 57 3759 c PUSH DI 
14Fl 8A CA 3760 c MOV CL,DL 
14F3 F3/ AA 3761 c REP STOSB ; FILL THE ODD FIELD 
14F5 5F 3762 c POP DI 
14F6 C3 3763 c RET ; RETURN TO CALLER 
14F7 3764 c R18 ENDP 
3765 c 
14F7 3766 C MEM_DET PROC NEAR 
3767 c ASSUME DS:ABSO 
14F7 50 3768 c PUSH AX 
14F8 1E 3769 c PUSH DS 
14F9 E8 OCFE R 3770 c CALL DDS 
14FC 8A 26 0487 R 3771 ¢ MOV AH, INFO 
1500 80 E4 60 3772 c AND AH, 060H 
1503 1F 3773 c POP DS 
1504 58 3774 c POP AX 
1505 74 02 3775 c IZ MIN 
1507 F9 3776 c sTC 
1508 C3 3777 c RET 
1509 3778 Cc MIN: 
1509 F8 3779 c cLc 
150A C3 3780 c RET 
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150B 3781 C MEM_DET ENDP 
3782 c 
3783 C ;----- SCROLL ACTIVE PAGE UP 
3784 c 
150B 3785 c sc_2 
150B E9 13A3 R 3786 c oMP SCROLL_UP 
3787 c 
150E 3788 Cc AHG6 
3789 c ASSUME DS:ABSO 
150E E8 12D1 R 3790 c CALL FLTA 
1511 8A 26 0449 R 3791 c MOV AH, CRT_MODE ; GET CURRENT MODE 
1515 80 FC 07 3792 c CMP AH, 07H 
1518 76 Fl 3793 c JBE sc_2 ; ANY OF THE OLD MODES 
151A 80 FC OD 3794 c CMP AH, ODH 
151D 73 17 3795 c JAE GRAPHICS_UP_2 ; NEW GRAPHICS MODES 
151F E9 219E R 3796 c oMP V_RET ; NOT A RECOGNIZED MODE 
3797 c 
1522 3798 C GR_ST_1 PROC NEAR 
1522 BA A000 3799 c MOV DX, 0AO00H ; REGEN BUFFER 
1525 BD 0511 3800 c MOV BP,0511H ; GRAPHICS WRITE MODE 
1528 80 FC OF 3801 c CMP AH, OFH 
152B 72 08 3802 c JB wi 
152D E8 14F7 R 3803 c CALL MEM_DET 
1530 73 03 3804 c onc wi 
1532 BD 0501 3805 c MOV BP, 0501H ; GRAPHICS WRITE MODE 
1535 3806 c wi: 
1535 C3 3807 c RET 
1536 3808 C GR_ST_1 ENDP 
3809 c 
1536 3810 C GRAPHICS_UP_2 PROC NEAR 
3811 c ASSUME DS:ABSO 
1536 52 3812 c PUSH Dx 
1537 E8 1522 R 3813 c CALL GR_ST_1 ; SET SEGMENT, WRITE MODE 
3814 c SRLOAD ES ; SET REGEN 
153A 8E C2 3815 c+ MOV ES, DX 
153c 5A 3816 rod POP Dx 
153D 8A D8 3817 c MOV BL, AL ; NUMBER OF LINES 
153F 8B Cl 3818 c MOV AX, CX ; UPPER LEFT CORNER 
1541 53 3819 c PUSH BX 
1542 8A 3E 0462 R 3820 c MOV BH, ACTIVE_PAGE ; ACTIVE PAGE FOR SCROLL 
1546 E8 16C6R 3821 c CALL GRX_PSN ; ADDRESS IN REGEN 
1549 5B 3822 c POP BX 
154A 8B F8 3823 c MOV DI,AX ; SET POINTER 
154C 2B D1 3824 c SUB DX, CX ; DETERMINE WINDOW 
154E 81 C2 0101 3825 c ADD DX, 0101H ; ADJUST 
1552 2A E4 3826 c SUB AH, AH ; ZERO HIGH BYTE 
1554 8A C3 3827 c MOV AL, BL ; LINE COUNT 
1556 52 3828 c PUSH Dx 
1557 F7 26 0485 R 3829 c MUL POINTS ; BYTES PER CHARACTER 
155B F7 26 044A R 3830 c MUL CRT_COLS ; COLUMNS 
155F 8B F7 3831 c MOV SI,DI ; SET UP SOURCE INDEX 
1561 03 FO 3832 c ADD SI,AX ; ADJUST 
3833 c ASSUME DS:NOTHING 
1563 06 3834 c PUSH ES 
1564 1F 3835 c POP DS 
1565 5A 3836 c POP Dx 
1566 OA DB 3837 c OR BL, BL ; LINE COUNT 
1568 74 3F 3838 c IZ ARQ 
156A 8A CE 3839 c MOV CL,DH 
156C 2A CB 3840 c SUB CL, BL 
156E 2A ED 3841 fe) SUB CH, CH 
3842 c 
3843 c ASSUME DS:ABSO 
1570 1E 3844 c PUSH DS 
1571 E8 OCFE R 3845 c CALL DDS ; LOW MEMORY SEGMENT 
1574 50 3846 c PUSH AX 
1575 52 3847 c PUSH DX 
1576 8B Cl 3848 c MOV AX, CX 
1578 F7 26 0485 R 3849 c MUL POINTS ; BYTES PER CHAR 
157C 8B C8 3850 c MOV Cx, AX ; SET THE COUNT 
157E 5A 3851 c POP DX 
157F 58 3852 c POP AX 
3853 c ASSUME DS:NOTHING 
1580 1F 3854 c POP DS 
3855 c 
1581 52 3856 c PUSH Dx 
1582 8B C5 3857 c MOV AX, BP 
1584 B6 03 3858 c MOV DH, 3 
1586 B2 CE 3859 c MOV DL, GRAPH_ADDR ; GRAPHICS 
1588 E8 OD15 R 3860 c CALL ouT_Dx 
158B B2 C4 3861 c MOV DL, SEQ_ADDR ; SEQUENCER 
158D B8 020F 3862 c MOV AX, 020FH ; ENABLE ALL MAPS 
1590 E8 ODI5 R 3863 c CALL ouT_Dx 
1593 5A 3864 c POP DX 
1594 E8 12EO R 3865 ¢ CALL CRANK ; SCROLL THE SCREEN 
3866 c 
1597 52 3867 c PUSH Dx 
1598 4D 3868 c DEC BP 
1599 8B C5 3869 c MOV AX, BP 
159B B6 03 3870 c MOV DH, 3 
159D B2 CE 3871 c MOV DL, GRAPH_ADDR 
159F E8 OD1I5 R 3872 c CALL ouT_Dx 
15A2 5A 3873 c POP Dx 
15A3 3874 Cc ARO: 
15A3 E8 1353 R 3875 c CALL BLNK_3 
15A6 EQ 219E R 3876 c oMP V_RET 
15a9 3877 C ARQ: 
15A9 8A DE 3878 c MOV BL, DH ; BLANK ENTIRE WINDOW 
15AB EB F6 3879 c oMP AR10 
15aD 3880 C GRAPHICS_UP_2  ENDP 
3881 c 
3882 C jo SCROLL ACTIVE DISPLAY PAGE DOWN 
3883 c 
15aD 3884 c sc_3 
15AD E9 1442 R 3885 c oMP SCROLL_DOWN 
3886 c 
15B0 3887 Cc AHT 
3888 c ASSUME DS:ABSO 
15B0 E8 12D1 R 3889 c CALL FLTA 
15B3 8A 26 0449 R 3890 c MOV AH, CRT_MODE 
15B7 80 FC 03 3891 c CMP AH, 03H ; OLD COLOR ALPHA 
15BA 76 Fl 3892 c JBE sc_3 
15BC 80 FC 07 3893 c CMP AH, 07H ; MONOCHROME ALPHA 
15BF 74 EC 3894 c JE sc_3 
3895 c 
15C1 80 FC OD 3896 c CMP AH, ODH ; NEW GRAPHICS MODES 
15c4 73 0c 3897 ¢ JAE GRAPHICS_DN_2 
15C6 80 FC 06 3898 c CMP AH, 06H ; OLD GRAPHICS MODES 
15c9 77 04 3899 c JA M_O 
15CB B4 07 3900 c MOV AH, 07H 
15CD CD 42 3901 c INT 42H 
15CF 3902 c MO 
15CF E9 219E R 3903 c oMP V_RET 
3904 c 
15D2 3905 C GRAPHICS_DN_2 PROC NEAR 
15D2 FD 3906 c STD ; DIRECTION TO DECREMENT 
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15D3 
15D5 
15D6 


15D9 
15DB 
15DC 
15DE 
15E0 
15E1 
15E5 
15E8 
15E9 
15ED 
15EF 
15F1 
15F5 
15F7 
15F9 
15FA 
15FE 
1602 
1604 


1606 
1607 
1608 
1609 
160B 
160D 
160F 
1611 


1613 
1614 
1617 
1618 
1619 
161B 
161F 
1621 
1622 


1623 


1624 
1625 
1627 
1629 
162B 
162E 
1630 
1633 
1636 
1637 


163A 
163B 
163C 
163E 
1640 
1642 
1645 
1646 
1646 
1649 
164A 
164D 
164D 
164F 
1651 


1651 
1651 
1653 
1655 
1657 
1659 
165D 
165F 
1661 
1661 
1665 
1667 
1667 
166A 
166C 
166D 


166D 
166D 
1670 
1672 
1673 
1676 
1676 
1678 
167A 


167C 
167E 
1680 
1681 
1682 


Ds 


1522 R 


c2 


c2 
c4 


3E 0462 R 
16C6 R 


06 044A R 
F8 

D1 

c2 0101 
E4 

c3 


26 0485 R 
26 044A R 
F7 
FO 


OCFE R 


cl 
26 0485 R 
cs 


CF 
ED 
Fl 
E6 
84 0450 R 
DB 
06 


1E 044C R 
FA 


1146 R 
Ds 


E3 03 
c3 


0003 
EO 
EO 
Ds 


F8 
FB 


3907 
3908 
3909 
3910 
3911 
3912 
3913 
3914 
3915 
3916 
3917 
3918 
3919 
3920 
3921 
3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 
3930 
3931 
3932 
3933 
3934 
3935 
3936 
3937 
3938 
3939 
3940 
3941 
3942 
3943 
3944 
3945 
3946 
3947 
3948 
3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3962 
3963 
3964 
3965 
3966 
3967 
3968 
3969 
3970 
3971 
3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
3980 
3981 
3982 
3983 
3984 
3985 
3986 
3987 
3988 
3989 
3990 
3991 
3992 
3993 
3994 
3995 
3996 
3997 
3998 
3999 
4000 
4001 
4002 
4003 
4004 
4005 
4006 
4007 
4008 
4009 
4010 
4011 
4012 
4013 
4014 
4015 
4016 
4017 
4018 
4019 
4020 
4021 
4022 
4023 
4024 
4025 
4026 
4027 
4028 
4029 
4030 
4031 
4032 
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MOV 
PUSH 
CALL 
SRLOAD 
MOV 
POP 
MOV 
INC 
PUSH 
MOV 
CALL 
POP 
SUB 
MOV 
SUB 
ADD 
SUB 
MOV 


DXR10: 


DXR9: 
MOV 


GRAPHICS_DN_2 
SUBTTL 


INCLUDE 
SUBTTL 
PAGE 


ASSUME 
FIND_POSITION 
MOV 
XOR 
MOV 


P4: 


PS: 
CALL 
ADD 
RET 


BL, AL 
DX 
GR_ST_1 
ES 
ES,DX 
DX 
AX, DX 
AH 
BX 
BH, ACTIVE_PAGE 
GRX_PSN 
BX 
AX, CRT_COLS 
DI,AX 
Dx, CX 
DX, 0101H 
AH, AH 
AL, BL 
Dx 
POINTS 
CRT_COLS 
SI,DI 
SI,AX 
DS: NOTHING 
ES 
DS 
DX 
BL, BL 
DXR9 
CL, DH 
CL, BL 
CH, CH 


DS:ABSO 
DS 

DDS 

AX 

DX 

AX, CX 
POINTS 
CX, AX 
DX 

AX 

DS: NOTHING 
DS 


DX 
AX, BP 

DH, 3 

DL, GRAPH_ADDR 
OUT_Dx 

DL, SEQ_ADDR 
AX, 020FH 
OUT_DX 

DX 

CRANK_4 


DX 
BP 

AX, BP 

DH, 3 

DL, GRAPH_ADDR 
OUT_DX 

DX 


BLNK_4 
V_RET 


BL, DH 
DXR10 
ENDP 


VGRW. INC 
VGRW. INC 


DS:ABSO 
PROC 
CL, BH 
CH, CH 
SI,CX 
SI,1 
AX, [SI + OFFSET CURSOR_POSN] 
BX, BX 

P5 


NEAR 


BX, CRT_LEN 
P4 


POSITION 
BX, AX 


FIND_POSITION ENDP 


EXPAND_MED_COLOR 


BL = COLOR TO BE USED ( LOW 2 BITS ) 


; 


; 


THIS ROUTINE EXPANDS THE LOW 2 BITS IN BL 
FILL THE ENTIRE BX REGISTER 


BX = COLOR TO BE USED ( 8 REPLICATIONS OF 
2 COLOR BITS ) 
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LINE COUNT 
SAVE LOWER RIGHT 


SET REGEN SEGMENT 


MOV CHAR ROW UP BY ONE 


ADDRESS IN REGEN 
ONE SCAN OVERSHOOT 


CALCULATE WINDOW 
ADJUST COUNT 


BYTES PER CHAR 
BYTES PER ROW 


SET DS TO 
THE REGEN SEGMENT 


SCROLL COUNT 
BLANK ENTIRE WINDOW 


BYTES PER CHAR 


GRAPHICS 


SEQUENCER 
ENABLE ALL MAPS 


SCROLL THE SCREEN 


BLANK ENTIRE WINDOW 


DISPLAY PAGE TO CX 


MOVE TO SI FOR INDEX 
* 2 FOR WORD OFFSET 
ROW/COLUMN OF THAT PAGE 
SET START ADDRESS TO 0 
NO_PAGE 

PAGE_LOOP 

LENGTH OF BUFFER 


NO_PAGE 
DETERMINE LOC IN REGEN 
ADD TO START OF REGEN 





TO 


S20: 


ISOLATE THE COLOR BITS 
COPY TO AL 

SAVE REGISTER 

NUMBER OF TIMES 


LEFT SHIFT BY 2 

ANOTHER COLOR VERSION 
INTO BL 

FILL ALL OF BL 

FILL UPPER PORTION 

REGISTER BACK 

ALL DONE 


EXPAND_BYTE 


7 
; 
7 THIS ROUTINE TAKES THE BYTE IN AL AND DOUBLES 
; 


ALL OF THE BITS, TURNING THE 8 BITS INTO 
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1682 
1682 
1683 
1684 
1685 
1687 
168A 
168A 
168C 
168E 
1690 
1692 
1694 
1696 
1698 
169A 


169C 


169E 
16A0 
16A1 
16A2 
16A3 
16A4 


16A4 
16A4 
16A7 
16A7 
16A8 
16AA 
16AC 
16B0 
16B2 
16B4 
16B6 
16B8 
16B9 
16BA 


16BA 


16BA 
16BB 
16BD 
16BF 
16c1 
16C5 


16C6 
16C6 
16C7 
16c8 
16c9 
16CB 
16CD 
16CF 
16D1 
16D5 
16D9 
16DB 
16DD 
16E1 
16E3 
16E3 
16E5 
16E7 
16E7 
16E8 
16E9 
16EA 
16EB 


16EB 
16EB 
16EE 
16F2 
16F6 
16F9 
16FB 
16FE 
16FE 
1700 


1701 
1701 
1704 
1707 


1709 
170D 


1710 


53 
8A 
2A 
D1 
8B 
5B 


D2 
0001 


Ds 
bg 
D3 
EO 
El 
Ds 
Dg 
D3 
El 


EC 


c2 


26 044A R 


87 0450 R 


26 044A R 
26 0485 R 


1E 044C R 


16EB R 
1651 R 
F3 


16 0463 R 
C2 06 


06 0487 R 04 


4033 
4034 
4035 
4036 
4037 
4038 
4039 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
4080 
4081 
4082 
4083 
4084 
4085 
4086 
4087 
4088 
4089 
4090 
4091 
4092 
4093 
4094 
4095 
4096 
4097 
4098 
4099 
4100 
4101 
4102 
4103 
4104 
4105 
4106 
4107 
4108 
4109 
4110 
4111 
4112 
4113 
4114 
4115 
4116 
4117 
4118 
4119 
4120 
4121 
4122 
4123 
4124 
4125 
4126 
4127 
4128 
4129 
4130 
4131 
4132 
4133 
4134 
4135 
4136 
4137 
4138 
4139 
4140 
4141 
4142 
4143 
4144 
4145 
4146 
4147 
4148 
4149 
4150 
4151 
4152 
4153 
4154 
4155 
4156 
4157 
4158 
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; 16 BITS 


. THE RESULT IS LEFT IN AX 


August 2, 1984 


S22: 


MOV 
POP 
POP 
POP 
RET 
s21 ENDP 
S26 PROC 
MOV 
GRAPH_POSN 
PUSH 
MOV 


NEAR 
AX, CURSOR_POSN 
LABEL NEAR 

BX 

BX, AX 

AL, AH 

BYTE PTR CRT_COLS 
AX,1 

AX,1 

BH, BH 

AX, BX 

BX 


SAVE REGISTERS 


RESULT REGISTER 
MASK REGISTER 


BASE INTO TEMP 
USE MASK TO EXTRACT BIT 
PUT INTO RESULT REGISTER 


SHIFT BASE AND MASK BY 1 
BASE TO TEMP 

EXTRACT THE SAME BIT 
PUT INTO RESULT 

SHIFT ONLY MASK NOW, 
MOVING TO NEXT BASE 

USE MASK BIT COMING OUT 
TO TERMINATE 

RESULT TO PARM REGISTER 


RECOVER REGISTERS 


ALL DONE 


GET CURRENT CURSOR 


SAVE REGISTER 

SAVE A COPY OF CURSOR 
GET ROWS TO AL 

MULTIPLY BY BYTES/COLUMN 
*4 SINCE 4 ROWS/BYTE 


ISOLATE COLUMN VALUE 
DETERMINE OFFSET 
RECOVER POINTER 

ALL DONE 


BH = DI 


SPLAY PAGE 


AX = CURSOR POSITION FOR REQUESTED PAGE 


ASSUME 
PUSH 
MOV 
SUB 
SAL 


DE: 


AX = BY' 


DS:ABSO 

BX 

BL, BH 

BH, BH 

BX,1 

AX, [BX + OFFSET CURSOR_POSN] 
BX 


CURSOR POSITION IN DESIRED PAGE 


SSIRED PAGE 


TE OFFSET INTO REGEN 


SAVE REGISTER 

GET TO LOW BYTE 

ZERO HIGH BYTE 

*2 FOR WORD COUNT 
CURSOR, REQUESTED PAGE 
RECOVER REGISTER 





P6_A: 


CH, CH 
CL, BH 

BX, AX 

AL, AH 

BYTE PTR CRT_COLS 
POINTS 

BH, BH 

AX, BX 

BX, CRT_LEN 

GP_2 


AX, BX 
GP_3 


Dx 


cx 
BX 


SI, 0B800H 
DI, EQUIP_FLAG 


ES, SI 


ZERO 

PAGE NUMBER 

ROW, COLUMN 

ROW 

ROW * COLUMNS/ROW 
BYTES PER ROW 

ZERO TO LEAVE COL VALUE 
ADD IN COLUMN 

PAGE LENGTH 

NO PAGE OFFSET 


ADD IN THE PAGE LENGTH 
DO FOR NUMBER OF PAGES 


RECOVER 
RECOVER 
RECOVER 


READ_AC_CURRE! 


NT 


THIS ROUTINE READS THE ATTRIBUTE AND CHARACTER 
CURRENT CURSOR POSITION AND RETURNS THEM 


; 
; 

; 

; AT THE 
Hy TO THE 
; INPUT 

i (AH) 
i (BH) 
i (DS) 
i (ES) 
; OUTPUT 

; 

; 





CALLER 


= GURRENT CRT MODE 
DISPLAY PAGE ( ALPHA MODES ONLY ) 


DATA SEGMENT 
REGEN SEGMENT 


CHAR READ 


ATTRIBUTE READ 


READ_AC_CURRENT 
CALL 
CALL 
MOV 


CS:CODE, DS: ABSO, ES: NOTHING 
PROC NEAR 

MK_ES 

FIND_POSITION 

SI, BX 


DX, ADDR_6845 
DX, 6 


INFO, 4 


; 


; 


; 


ADDRESSING IN SI 


GET BASE ADDRESS 
POINT AT STATUS PORT 
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1715 06 4159 c PUSH ES 
1716 1F 4160 c POP DS ; SEGMENT FOR QUICK ACCESS 
4161 c 
1717 74 OB 4162 c oz P3A 
4163 c 
4164 C yoo WAIT FOR HORIZONTAL RETRACE 
4165 c 
1719 4166 Cc P2: ; WAIT FOR RETRACE LOW 
1719 EC 4167 c IN AL, DX ; GET STATUS 
171A A8 01 4168 c TEST AL,1 ; IS HORZ RETRACE LOW 
171c 75 FB 4169 c oNZ P2 ; WAIT UNTIL IT IS 
171E FA 4170 c CLI ; NO MORE INTERRUPTS 
171F 4171 Cc P3: ; WAIT FOR RETRACE HIGH 
171F EC 4172 c IN AL, DX ; GET STATUS 
1720 As 01 4173 c TEST AL,1 ; IS IT HIGH 
1722 74 FB 4174 c oz P3 ; WAIT UNTIL IT IS 
1724 4175 C P3A: 
1724 aD 4176 c LODSW ; GET THE CHAR/ATTR 
1725 E9 219E R 4177 c MP V_RET 
1728 4178 C READ_AC_CURRENT ENDP 
4179 c 
4180 Ch 
4181 C ; MED_READ_BYTE 
4182 c ; THIS ROUTINE WILL TAKE 2 BYTES FROM THE REGEN 
4183 Cy y BUFFER, COMPARE AGAINST THE CURRENT FOREGROUND 
4184 C3 COLOR, AND PLACE THE CORRESPONDING ON/OFF BIT 
4185 c ; PATTERN INTO THE CURRENT POSITION IN THE SAVE 
4186 c ; 
4187 Cc ; ENTRY 
4188 Cx} SI,DS = POINTER TO REGEN AREA OF INTEREST 
4189 c ; BX = EXPANDED FOREGROUND COLOR 
4190 olgeey BP = POINTER TO SAVE AREA 
4191 Cc ; EXIT 
4192 oe BP IS INCREMENT AFTER SAVE 
4193 c ; 
1728 4194 c 
1728 8A 24 4195 c MOV AH, [SI] ; GET FIRST BYTE 
172A 8A 44 01 4196 c MOV AL, [SI+1] ; GET SECOND BYTE 
172D B9 C000 4197 c MOV CX, OCO00H ; 2 BIT MASK TO TEST 
4198 c ; THE ENTRIES 
1730 B2 00 4199 c MOV DL, 0 ; RESULT REGISTER 
1732 4200 Cc S24: 
1732 85 cl 4201 c TEST AX, CX ; IS, THIS, BACKGROUND? 
1734 F8 4202 c cLc ; CLEAR CARRY IN HOPES 
4203 c ; THAT IT Is 
1735 74 01 4204 c oz s25 ; IF 0, IT IS BACKGROUND 
1737 F9 4205 c STC ; WASNT, SO SET CARRY 
1738 4206 Cc S25: 
1738 DO D2 4207 c RCL DL,1 ; MOVE THAT BIT INTO THE 
173A D1 E9 4208 c SHR cx,1 ; RESULT 
173C D1 E9 4209 c SHR cx,1 ; MOVE THE MASK TO THE 
4210 c ; RIGHT BY 2 BITS 
173E 73 F2 4211 c oNC s24 ; DO IT AGAIN IF MASK 
4212 c ; DIDNT FALL OUT 
1740 88 56 00 4213 c MOV [BP] ,DL ; STORE RESULT LN SAVE 
1743 45 4214 c INC BP ; ADJUST POINTER 
1744 c3 4215 c RET ; ALL DONE 
1745 4216 c s23 ENDP 
4217 c 
4218 c 
1745 4219 C GRAPHICS_READ PROC NEAR 
1745 E8 16EB R 4220 c CALL MK_ES 
1748 E8 16A4 R 4221 c CALL S26 ; CONVERTED TO OFFSET 
174B 8B FO 4222 c MOV SI,AX ; SAVE IN SI 
174D 83 EC 08 4223 c SUB SP,8 ; ALLOCATE SPACE TO SAVE 
4224 c ; THE READ CODE POINT 
1750 8B EC 4225 c MOV BP, SP ; POINTER TO SAVE AREA 
4226 c 
4227 C yoo DETERMINE GRAPHICS MODES 
4228 c 
1752 80 3E 0449 R 06 4229 c CMP CRT_MODE, 6 
1757 06 4230 c PUSH ES 
1758 41F 4231 c POP DS ; POINT TO REGEN SEGMENT 
1759 72 1A 4232 c gc S13P ; MEDIUM RESOLUTION 
4233 c 
4234 c ; — HIGH RESOLUTION READ 
4235 c 
4236 C yoo GET VALUES FROM REGEN BUFFER AND CONVERT TO CODE POINT 
4237 c 
175B B6 04 4238 c MOV DH, 4 ; NUMBER OF PASSES 
175D 4239 Cc sl2P: 
175D 8A 04 4240 c MOV AL, [SI] ; GET FIRST BYTE 
175F 88 46 00 4241 c MOV [BP], AL ; SAVE IN STORAGE AREA 
1762 45 4242 c INC BP ; NEXT LOCATION 
1763 8A 84 2000 4243 c MOV AL, [SI+2000H] ; GET LOWER REGION BYTE 
1767 88 46 00 4244 c MOV [BP], AL ; ADJUST AND STORE 
176A 45 4245 c INC BP 
176B 83 C6 50 4246 c ADD SI,80 ; POINTER INTO REGEN 
176E FE CE 4247 c DEC DH ; LOOP CONTROL 
1770 75 EB 4248 c oNZ s12P ; DO IT SOME MORE 
1772 EB 17 90 4249 c MP S15P ; GO MATCH THE SAVED CODE 
4250 c ; POINTS 
4251 c 
4252 C yo-oe MEDIUM RESOLUTION READ 
4253 c 
1775 4254 Cc S13P: ; MED_RES_READ 
1775 D1 E6 4255 c SHL SI,1 ; OFFSET*2, 2 BYTES/CHAR 
1777 B6 04 4256 c MOV DH, 4 ; NUMBER OF PASSES 
1779 4257 c s14P 
1779 E8 1728 R 4258 c CALL $23 ; GET PAIR BYTES 
4259 c ; INTO SINGLE SAVE 
177¢ 81 C6 2000 4260 c ADD SI,2000H ; GO TO LOWER REGION 
1780 E8 1728 R 4261 c CALL $23 ; GET. THIS PAIR INTO SAVE 
1783 81 EE 1FBO 4262 c SUB SI,2000H-80 ; ADJUST POINTER BACK INTO 
1787 FE CE 4263 c DEC DH ; UPPER 
1789 75 EE 4264 c oNZ s14P ; KEEP GOING UNTIL 8 DONE 
4265 c 
4266 C yoo SAVE AREA HAS CHARACTER IN IT, MATCH IT 
4267 c 
178B 4268 Cc S15P: ; FIND_CHAR 
178B 1E 4269 c PUSH DS 
178C E8 OCFE R 4270 c CALL DDS 
178F C4 3E 010C R 4271 c LES DI,GRX_SET ; ESTABLISH ADDRESSING 
1793 1F 4272 c POP DS 
1794 83 ED 08 4273 c SUB BP,8 ; ADJUST, POINTER. TO 
4274 c ; BEGINNING OF SAVE AREA 
1797 8B F5 4275 c MOV SI,BP 
1799 FC 4276 c CLD ; ENSURE DIRECTION 
179A BO 00 4277 c MOV AL,O ; CURRENT CODE POINT BEING 
179c 4278 c silepP: ; MATCHED 
179c (16 4279 c PUSH ss ; ADDRESSING TO STACK 
179D 1F 4280 c POP DS ; FOR THE STRING COMPARE 
179E BA 0080 4281 c MOV Dx, 128 ; NUMBER TO TEST AGAINST 
17A1l 4282 Cc Si17P: 
17Al 56 4283 c PUSH sI ; SAVE SAVE AREA. POINTER 
17A2 57 4284 c PUSH DI ; SAVE CODE POINTER 
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17A3 B9 0008 4285 c MOV cx, 8 ; NUMBER OF BYTES TO MATCH 
17A6 F3/ A6 4286 c REPE CMPSB ; COMPARE THE 8 BYTES 

17A8 5F 4287 c POP DI ; RECOVER THE POINTERS 
17A9 5E 4288 c POP SI 

17AA 74 1D 4289 c oz S18P ; IF ZERO FLAG SET, 

4290 c ; THEN MATCH OCCURRED 
17AC FE CO 4291 c INC AL ; NO MATCH, MOVE TO NEXT 
17AE 83 C7 08 4292 c ADD DI,8 ; NEXT CODE POINT 
17B1l 4A 4293 c DEC DX ; LOOP CONTROL 
17B2 75 ED 4294 c oNZ S17P ; DO ALL OF THEM 

4295 c 

4296 C yoo CHAR NOT MATCHED, MIGHT BE IN USER SUPPLIED SECOND HALF 

4297 c 
17B4 3c 00 4298 c CMP AL,O ; AL <> 0 LF ONLY 1ST 

4299 c ; HALF SCANNED 
17B6 74 11 4300 Cc JE sS18P ; IF = 0, THEN ALL HAS 

4301 c ; BEEN SCANNED 

4302 c ASSUME DS:ABSO 
17B8 E8 OCFE R 4303 c CALL DDS 
17BB C4 3E 007C R 4304 c LES DI,EXT_PTR ; GET POINTER 
17BF 8c CO 4305 c MOV AX, ES ; SEE IF THE PNTR EXISTS 
17Cl 0B C7 4306 c OR AX, DI ; IF ALL 0, DOESNT EXIST 
17c3 74 04 4307 c oz S18P ; NO SENSE LOOKING 
17c5 BO 80 4308 c MOV AL, 128 ; ORIGIN FOR SECOND HALF 
17¢7 EB D3 4309 c MP S16P ; GO BACK AND TRY FOR IT 

4310 c 

4311 C poo CHARACTER IS FOUND ( AL=0 IF NOT FOUND ) 

4312 c 
17¢9 4313 c sisP 
17c9 83 C4 08 4314 c ADD SP,8 ; READJUST THE STACK, 

4315 c ; THROW AWAY SAVE 
17cC E9 219E R 4316 c MP V_RET ; ALL DONE 
17CF 4317 C GRAPHICS_READ ENDP 

4318 c 

4319 c 

4320 C poo READ CHARACTER/ATTRIBUTE AT CURRENT CURSOR POSITION 

4321 c 
17CcF 4322 Cc aAH8S 
17cCF E9 1701 R 4323 c MP READ_AC_CURRENT 

4324 c 
17D2 4325 Cc AH8 

4326 c ASSUME DS:ABSO 
17D2 8A 26 0449 R 4327 c MOV AH, CRT_MODE ; GET THE CURRENT MODE 
17D6 80 FC 07 4328 c CMP AH, 07H 
17D9 74 F4 4329 c JE AH8S 
17DB 80 FC 03 4330 c CMP AH, 03H 
17DE 76 EF 4331 c JBE AH8S 
17EO 80 FC 06 4332 c CMP AH, 06H 
17E3 77 03 4333 c JA Zl 
17E5 E9 1745 R 4334 c MP GRAPHICS_READ 
17E8 4335 c Zi: 
17E8 80 FC OF 4336 c CMP AH, OFH 
17EB 72 52 4337 c JB GRX_RD2 
17ED E8 14F7 R 4338 c CALL MEM_DET 
17FO 72 4D 4339 c gc GRX_RD2 
17F2 EB OA 4340 c MP SHORT GRX_RD1 
17F4 80 FC OD 4341 c CMP AH, ODH ; RANGE TEST 
17F7 73 46 4342 c JAE GRX_RD2 ; FOUR MAP READ 
17F9 BO 00 4343 c MOV AL,O 
17FB E9 219E R 4344 c MP V_RET 

4345 c 
17FE 4346 C GRX_RD1 PROC NEAR 

4347 c ASSUME DS:ABSO 

4348 c SRLOAD ES, 0A000H ; REGEN SEGEMNT 
17FE BA A000 4349 c+ MOV DX, 0AO00H 
1801 8E C2 4350 c+ MOV ES,DX 
1803 E8 16BAR 4351 c CALL GR_CUR ; BYTE OFFSET INTO REGEN 
1806 8B FO 4352 c MOV SI, AX ; SAVE IN SI 
1808 8B 1E 0485 R 4353 c MOV BX, POINTS ; BYTES PER CHARACTER 
180C 2B E3 4354 c SUB SP, BX ; ALLOCATE SPACE TO SAVE 

4355 c ; THE READ CODE POINT 
180E 8B EC 4356 c MOV BP, SP ; POINTER TO SAVE AREA 

4357 c 

4358 C poo GET VALUES FROM REGEN BUFFER AND CONVERT TO CODE POINT 

4359 c 
1810 53 4360 c PUSH BX ; SAVE BYTES PER CHARACTER 
1811 24 01 4361 c AND AL,1 ; ODD OR EVEN BYTE 
1813 8A C8 4362 c MOV CL, AL ; USE FOR SHIFT 
1815 BO 05 4363 c MOV AL,5 ; COLOR COMP VALUE (C0-C2) 
1817 D2 EO 4364 c SHL AL,CL ; (C1-C3) IF ODD BYTE 
1819 B4 07 4365 c MOV AH, G_COLOR ; COLOR COMPARE REGISTER 
181B B6 03 4366 c MOV DH, 3 
181D B2 CE 4367 c MOV DL, GRAPH_ADDR 
181F E8 OD15 R 4368 c CALL OUT_DX ; SET GRAPHICS CHIP 
1822 B8 0518 4369 c MOV AX, 518H ; READ MODE 
1825 E8 OD15 R 4370 c CALL OUT_Dx ; SET GRAPHICS CHIP 
1828 4371 c s12_1: 

1828 26: 8A 04 4372 c MOV AL, ES: [ST] ; GET FIRST BYTE 

182B F6 DO 4373 c NOT AL 

182D 88 46 00 4374 c MOV SS: [BP],AL ; SAVE IN STORAGE AREA 
1830 45 4375 c INC BP ; NEXT LOCATION 

1831 03 36 044A R 4376 c ADD SI,CRT_COLS ; POINTER INTO REGEN 
1835 4B 4377 c DEC BX ; LOOP CONTROL 

1836 75 FO 4378 c NZ s12_1 ; DO IT SOME MORE 

1838 5B 4379 c POP BX ; RECOVER BYTES PER CHAR 
1839 B8 0510 4380 c MOV Ax, 510H ; UNDO READ MODE 

183C EB 32 90 4381 c oMP GRX_RECG ; CHAR REGONTION ROUTINE 
183F 4382 C GRX_RD1 ENDP 

4383 c 
183F 4384 C GRX_RD2 PROC NEAR 

4385 c ASSUME DS:ABSO 

4386 c SRLOAD ES, 0A000H ; REGEN SEGMENT 
183F BA A000 4387 ct MOV DX, 0A000H 
1842 8E C2 4388 c+ MOV ES,DX 
1844 E8 16BAR 4389 c CALL GR_CUR ; BYTE OFFSET INTO REGEN 
1847 8B FO 4390 c MOV SI,AX ; SAVE IN SI 
1849 8B 1E 0485 R 4391 c MOV BX, POINTS ; BYTES PER CHARACTER 
184D 2B E3 4392 c SUB SP, BX ; ALLOCATE SPACE TO SAVE 

4393 c ; THE READ CODE POINT 
184F 8B EC 4394 c MOV BP, SP ; POINTER TO SAVE AREA 

4395 c 

4396 C poo GET VALUES FROM REGEN BUFFER AND CONVERT TO CODE POINT 

4397 c 
1851 B6 03 4398 c MOV DH, 3 
1853 B2 CE 4399 c MOV DL, GRAPH_ADDR ; GRAPHICS CHIP 
1855 B8 0508 4400 c MOV AX, 508H ; COLOR COMPARE 
1858 E8 OD15 R 4401 c CALL OUT_DX ; SET THE REGISTER 
185B 53 4402 c PUSH BX ; SAVE BYTES PER CHARACTER 
185c 4403 c si2: 
185C 26: 8A 04 4404 c MOV AL, ES: [ST] ; GET COLOR COMPARED BYTE 
185F F6 DO 4405 c NOT AL ; ADJUST 
1861 88 46 00 4406 c MOV SS: [BP],AL ; SAVE IN STORAGE AREA 
1864 45 4407 c INC BP ; NEXT LOCATION 
1865 03 36 044A R 4408 c ADD SI,CRT_COLS ; POINTER INTO REGEN 
1869 4B 4409 c DEC BX ; LOOP CONTROL 
186A 75 FO 4410 c oNZ s12 ; DO IT SOME MORE 
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186C 
186D 
1870 


1870 


1870 
1873 
1877 


1879 
187B 
187C 
187E 
187F 
1880 
1883 
1883 
1884 
1885 
1887 
1889 
188A 
188B 


188D 
188F 
1891 
1892 
1894 
1894 
1896 


1899 


1899 
189C 


18A0 
18A3 
18A5 
18A8 
18AA 
18AD 
18AD 
18B0 
18B2 
18B3 
18B4 
18B7 
18B9 
18BA 
18BB 
18BF 


18C2 
18C2 
18C7 
18c9 
18c9 
18CA 
18cCc 
18CE 
18CF 
18CF 
18D0 
18D2 
18D4 
18D4 
18D6 
18D7 
18D8 
18DA 


18DD 


18DD 
18E0 


18E4 
18E7 
18E9 
18EC 


18EE 
18F1 
18F1 


5B 
B8 


0500 


0op15 R 

3E 010C R 
EB 

F5 


00 


219E R 


16 0463 R 
C2 06 


06 0487 R 04 
OB 


o1 
FB 


o1 
FB 


c3 


E8 
219E R 


OCFE R 
26 0449 R 


FC 04 
os 
FC 07 
03 
30 90 


16EB R 


4411 
4412 
4413 
4414 
4415 
4416 
4417 
4418 
4419 
4420 
4421 
4422 
4423 
4424 
4425 
4426 
4427 
4428 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4440 
4441 
4442 
4443 
4444 
4445 
4446 
4447 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
4458 
4459 
4460 
4461 
4462 
4463 
4464 
4465 
4466 
4467 
4468 
4469 
4470 
4471 
4472 
4473 
4474 
4475 
4476 
4477 
4478 
4479 
4480 
4481 
4482 
4483 
4484 
4485 
4486 
4487 
4488 
4489 
4490 
4491 
4492 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
4500 
4501 
4502 
4503 
4504 
4505 
4506 
4507 
4508 
4509 
4510 
4511 
4512 
4513 
4514 
4515 
4516 
4517 
4518 
4519 
4520 
4521 
4522 
4523 
4524 
4525 
4526 
4527 
4528 
4529 
4530 
4531 
4532 
4533 
4534 
4535 
4536 
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GRX_RD2 


GRX_REC! 


$17_5: 


$18_5: 


POP 
MOV 
ENDP 


G: 


SAVE AREA HAS CHARACTER IN IT, MATCH IT 


BX 
AX, 500H 


OUT_Dx 
DI,GRX_SET 
BP, BX 


SI,BP 


AL,0 
ss 
Ds 
DX, 256D 
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; RECOVER BYTES PER CHAR 
; UNDO READ MODE 


SET READ MODE BACK 

GET FONT DEFINITIONS 
ADJUST POINTER TO 
BEGINNING OF SAVE AREA 


ENSURE DIRECTION 

CODE POINT BEING MATCHED 
ADDRESSING TO STACK 

FOR THE STRING COMPARE 
NUMBER TO TEST AGAINST 


SAVE SAVE AREA POINTER 
SAVE CODE POINTER 
NUMBER OF BYTES TO MATCH 
COMPARE THE 8 BYTES 
RECOVER THE POINTERS 


IF ZFL SET, THEN MATCH 
OCCURRED 

NO MATCH, ON TO NEXT 
NEXT CODE POINT 

LOOP CONTROL 

DO ALL OF THEM 

AL=CHAR, IF NOT FOUND 
READJUST THE STACK 


; 
7 
; 
7 
; 
7 
; 
7 





WRITE_AC_CURRENT 


THIS ROUTINE WRITES THE ATTRIBUTE 
AND CHARACTER AT THE CURRENT CURSOR 





; IS THIS GRAPHICS 


; IS THIS BW CARD 


; WRITE_AC_CONTINUE 


; GET ATTRIBUTE TO AH 
; SAVE ON STACK 
; SAVE WRITE COUNT 


ADDRESS TO DI REGISTER 
WRITE COUNT 

CHARACTER IN BX REG 
GET BASE ADDRESS 


i 
; 
i 
; 
; POSITION 
; INPUT: 
; (AH) = CURRENT CRT MODE 
; (BH) = DISPLAY PAGE 
; (CX) COUNT OF CHARACTERS TO WRITE 
; (AL) CHAR TO WRITE 
; (BL) ATTRIBUTE OF CHAR TO WRITE 
; (DS) DATA SEGMENT 
; (ES) = REGEN SEGMENT 
; OUTPUT 
; NONE 
jooe+-------------------------------------------- 
AHO 
ASSUME DS:ABSO 
CALL DDS 
MOV AH, CRT_MODE 
CMP AH, 4 
Jc P6 
CMP AH,7 
JE P6é 
JMP GRAPHICS_WRITE 
P6: 
CALL MK_ES 
MOV AH, BL 
PUSH AX 
PUSH cx 
CALL FIND_POSITION 
MOV DI,BX 
POP cx 
POP BX 
MOV DX, ADDR_6845 
ADD Dx, 6 





P8: 


P9: 


POA: 


HORIZONTAL RETRACE 


INFO, 4 
POA 


AL, DX 
AL,1 
P8 


P7 
V_RET 


POINT AT STATUS PORT 


GET STATUS 

Is IT LOW 

WAIT UNTIL IT IS 
NO MORE INTERRUPTS 


; GET STATUS 
; IS IT HIGH 
; WAIT UNTIL IT IS 


; RECOVER THE CHAR/ATTR 
; PUT THE CHAR/ATTR 

; INTERRUPTS BACK ON 

; AS MANY TIMES 


WRITE CHARACTER ONLY AT CURRENT CURSOR POSITION 





WRITE_C_CURRENT 
THIS ROUTINE WRITES THE CHARACTER AT 
THE CURRENT CURSOR POSITION, ATTRIBUTE 


; IS THIS GRAPHICS 


; IS THIS BW CARD 


; 
i 
i 
; 
; UNCHANGED 
; INPUT 
; (AH) = CURRENT CRT MODE 
; (BH) DISPLAY PAGE 
; (CX) COUNT OF CHARACTERS TO WRITE 
; (AL) CHAR TO WRITE 
; (DS) DATA SEGMENT 
; (ES) = REGEN SEGMENT 
; OUTPUT 
; NONE 
pooe+-------------------------------------------- 
AHA: 
ASSUME DS:ABSO 
CALL DDS 
MOV AH, CRT_MODE 
CMP AH, 4 
Jc P10 
CMP AH,7 
JE P10 
JMP GRAPHICS_WRITE 
P10: 
CALL MK_ES 
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18F4 
18F5 
18F6 
18F9 
18FB 
18FC 


18FD 
1901 
1904 
1904 
1909 
190B 
190B 
190C 
190E 
1910 
1911 
1911 
1912 
1914 
1916 
1916 
1918 
1919 
191A 
191B 
191D 


1920 
1920 
1923 
1925 
1928 
1928 
192B 
192D 


192E 
1931 


1933 
1934 
1936 


1938 
193C 


193E 
193E 
1940 


1944 
1944 
1946 
1948 
194A 
194Cc 
194D 
1950 
1955 
1956 


1958 
1958 
1959 
195A 
195c 
195c 
195D 
1960 
1962 
1963 
1964 
1964 
1969 
196C 
196E 
1970 


2c 
cs 


1651 R 
FB 


16 0463 R 
C2 06 


06 0487 R 04 
OB 


o1 
FB 


o1 
FB 


c3 


E7 
219E R 


FC 07 
03 
19D7 R 


16EB R 
00 


16A4 R 


36 010C R 


80 
36 007C R 


EO 
EO 
EO 
FO 


OCFE R 
3E 0449 R 06 


2c 


04 


c3 80 
16 


88 85 1FFF 
C7 4F 
CE 
EC 


4537 
4538 
4539 
4540 
4541 
4542 
4543 
4544 
4545 
4546 
4547 
4548 
4549 
4550 
4551 
4552 
4553 
4554 
4555 
4556 
4557 
4558 
4559 
4560 
4561 
4562 
4563 
4564 
4565 
4566 
4567 
4568 
4569 
4570 
4571 
4572 
4573 
4574 
4575 
4576 
4577 
4578 
4579 
4580 
4581 
4582 
4583 
4584 
4585 
4586 
4587 
4588 
4589 
4590 
4591 
4592 
4593 
4594 
4595 
4596 
4597 
4598 
4599 
4600 
4601 
4602 
4603 
4604 
4605 
4606 
4607 
4608 
4609 
4610 
4611 
4612 
4613 
4614 
4615 
4616 
4617 
4618 
4619 
4620 
4621 
4622 
4623 
4624 
4625 
4626 
4627 
4628 
4629 
4630 
4631 
4632 
4633 
4634 
4635 
4636 
4637 
4638 
4639 
4640 
4641 
4642 
4643 
4644 
4645 
4646 
4647 
4648 
4649 
4650 
4651 
4652 
4653 
4654 
4655 
4656 
4657 
4658 
4659 
4660 
4661 
4662 
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PUSH AX 
PUSH cx 
CALL 


FIND_POSITION 


August 2, 1984 


SAVE ON STACK 
SAVE WRITE COUNT 


MOV DI, BX ; ADDRESS TO DI 
POP cx ; WRITE COUNT 
POP BX ; BL HAS CHAR TO WRITE 


(Ss =S WAIT FOR HORIZONTAL RETRACE 


MOV DX, ADDR_6845 ; GET BASE ADDRESS 

ADD Dx, 6 ; POINT AT STATUS PORT 
Pill 

TEST INFO, 4 

JZ P13A 
Pl2: 

IN AL, DX ; GET STATUS 

TEST AL,1 ; IS IT Low 

JNZ P12 ; WAIT UNTIL IT IS 

CLI ; NO MORE INTERRUPTS 
P13: 

IN AL, DX ; GET STATUS 

TEST AL,1 ; IS IT HIGH 

JZ P13 ; WAIT UNTIL IT IS 
P13A: 

MOV AL, BL ; RECOVER CHAR 

STOSB ; PUT THE CHAR/ATTR 

STI ; INTERRUPTS BACK ON 

INC DI ; BUMP POINTER PAST ATTR 

LOOP Pll ; AS REQUESTED 

MP V_RET 


GRAPHICS WRITE 


THIS ROUTINE WRITES THE ASCII CHARACTER 
CURRENT POSITION ON THE SCREEN. 


ENTRY 
AL = CHARACTER TO WRITE 
BL = COLOR ATTRIBUTE TO BE USED FOR FOREGROUND COLOR 
IF BIT 7 IS SET, THE CHAR IS XORD INTO THE REGEN 
BUFFER (0 IS USED FOR THE BACKGROUND COLOR) 
CX = NUMBER OF CHARS TO WRITE 
DS = DATA SEGMENT 
ES = REGEN SEGMENT 
EXIT 


NOTHING IS RETURNED 


THIS ROUTINE READS THE ASCII CHARACTER AT THE CURRENT 
CURSOR POSITION ON THE SCREEN BY MATCHING THE DOTS ON 
THE SCREEN TO THE CHARACTER GENERATOR CODE POINTS 


ENTRY 
NONE 
EXIT 


(0 IS ASSUMED AS THE BACKGROUND COLOR) 


AL = CHARACTER READ AT THAT POSITION (0 RETURNED IF 


NONE FOUND) 


FOR COMPATIBILITY ROUTINES, THE IMAGES USED TO FORM CHARS ARE 
CONTAINED IN ROM FOR THE 1ST 128 CHARS. TO ACCESS CHARS 

IN THE SECOND HALF, THE USER MUST INITIALIZE THE VECTOR AT 
INTERRUPT 1FH (LOCATION 0007CH) TO POINT TO THE USER 
SUPPLIED TABLE OF GRAPHIC IMAGES (8X8 BOXES) . 

FAILURE TO DO SO WILL CAUSE IN STRANGE RESULTS 


; 
7 
; 
7 
; 
7 
; 
7 
; 
7 
; 
7 
; 
7 
; 
; GRAPHICS READ 
; 
7 
; 
7 
; 
7 
; 
7 
; 
7 
; 
7 
7 
7 
; 


ASSUME CS:CODE,DS:ABS0,ES:NOTHING 
GRAPHICS_WRITE PROC NEAR 
CMP AH,7 
JB S1A 
MP GRX_WRT 
SIA 
CALL MK_ES 
MOV AH,O ; 0 TO HIGH OF CODE POINT 


PUSH AX 


; 


SAVE CODE POINT VALUE 


jossS— DETERMINE POSITION IN REGEN BUFFER TO PUT CODE POINTS 


CALL 
MOV 


S26 
DI,AX 


: — DETERMINE REGION TO GET CODE POINTS FROM 





LOC IN REGEN BUFFER 
REGEN POINTER IN DI 


POP AX ; RECOVER CODE POINT 
CMP AL, 80H ; IS IT IN SECOND HALF 
JAE s1 ; YES 
i- IMAGE IS IN FIRST HALF, CONTAINED IN ROM 
LDS SI,GRX_SET 
JMP SHORT S2 ; DETERMINE_MODE 
ic IMAGE IS IN SECOND HALF, IN USER RAM 
s1 ; EXTEND_CHAR 
SUB AL, 80H ; O ORIGIN FOR SECOND HALF 
LDS SI,EXT_PTR 
jcc DETERMINE GRAPHICS MODE IN OPERATION 
S2: ; DETERMINE MODE 
SAL AX,1 ; MULTIPLY CODE POINT 
SAL AX,1 ; VALUE BY 8 
SAL AX,1 
ADD SI,AX ; SI HAS OFFSET OF 
PUSH DS ; DESIRES CODES 
CALL DDS 
CMP CRT_MODE, 6 
POP DS 
JC s7 ; TEST FOR MEDIUM RES MODE 
i HIGH RESOLUTION MODE 
s3 ; HIGH_CHAR 
PUSH DI ; SAVE REGEN POINTER 
PUSH sI ; SAVE CODE POINTER 
MOV DH,4 ; NUMBER OF TIMES THROUGH 
S4: ; LOOP 
LODSB ; GET BYTE FROM CODE POINT 
TEST BL, 80H ; SHOULD WE USE THE 
JNZ sé ; FUNCTION TO PUT CHAR IN 
STOSB ; STORE IN REGEN BUFFER 
LODSB 
S5: 
MOV ES: [DI+2000H-1], AL ; STORE IN SECOND HALF 


ADD DI,79 ; MOVE TO NEXT ROW IN REGEN 
DEC DH ; DONE WITH LOOP 

JNZ s4 

POP sr 
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1971 5F 4663 c POP DI ; RECOVER REGEN POINTER 
1972 47 4664 c INC DI ; POINT TO NEXT CHAR POS 
1973 E2 E3 4665 c LOOP s3 ; MORE CHARS TO WRITE 
1975 E9 219E R 4666 c MP V_RET 
1978 4667 c sé: 
1978 26: 32 05 4668 c XOR AL, ES: [DI] ; XOR WITH CURRENT 
197B AA 4669 c STOSB ; STORE THE CODE POINT 
197c AC 4670 c LODSB ; AGAIN FOR ODD FIELD 
197D 26: 32 85 1FFF 4671 c XOR AL, ES: [DI+2000H-1] 
1982 EB EO 4672 c MP s5 ; BACK TO MAINSTREAM 
4673 c 
4674 C poo MEDIUM RESOLUTION WRITE 
4675 c 
1984 4676 c ST: ; MED_RES_WRITE 
1984 8A D3 4677 c MOV DL, BL ; SAVE HIGH COLOR BIT 
1986 D1 E7 4678 c SAL DI,1 ; OFFSET*2, 2 BYTES/CHAR 
1988 E8 166D R 4679 c CALL s19 ; EXPAND BL TO FULL WORD 
198B 4680 c ss: ; OF COLOR 
198B 57 4681 c PUSH DI ; SAVE REGEN POINTER 
198c 56 4682 c PUSH SI ; SAVE THE CODE POINTER 
198D B6 04 4683 c MOV DH, 4 ; NUMBER OF LOOPS 
198F 4684 c s9: 
198F AC 4685 c LODSB ; GET CODE POINT 
1990 E8 1682 R 4686 c CALL s21 ; DOUBLE UP ALL THE BITS 
1993 23 c3 4687 c AND AX, BX ; CONVERT THEM TO FORE- 
4688 c ; GROUND COLOR (0 BACK) 
1995 F6 C2 80 4689 c TEST DL, 80H ; IS THIS XOR FUNCTION 
1998 74 07 4690 c oz s10 ; NO, STORE IT IN AS IT IS 
199A 26: 32 25 4691 c XOR AH, ES: [DI] ; DO FUNCTION WITH HALF 
199D 26: 32 45 01 4692 c XOR AL, ES: [DI+1] ; AND WITH OTHER HALF 
19A1 4693 c slo: 
19A1l 26: 88 25 4694 c MOV ES: [DI], AH ; STORE FIRST BYTE 
19A4 26: 88 45 01 4695 c MOV ES: [DI+1],AL ; STORE SECOND BYTE 
19A8 AC 4696 c LODSB ; GET CODE POINT 
19A9 E8 1682 R 4697 c CALL s21 
19AC 23 C3 4698 c AND AX, BX ; CONVERT TO COLOR 
19AE F6 C2 80 4699 c TEST DL, 80H ; IS THIS XOR FUNCTION 
19B1l 74 OA 4700 c oz s11 ; NO, JUST STORE THE VALUE 
19B3 26: 32 A5 2000 4701 c XOR AH, ES: [DI+2000H] ; FUNCTION WITH FIRST HALF 
19B8 26: 32 85 2001 4702 c XOR AL, ES: [DI+2001H] ; AND WITH SECOND HALF 
19BD 4703 c sil: 
19BD 26: 88 A5 2000 4704 c MOV ES: [DI+2000H] , AH 
19C2 26: 88 85 2001 4705 c MOV ES: [DI+2000H+1], AL ; STORE IN SECOND PORTION 
19C7 83 C7 50 4706 c ADD DI,80 ; POINT TO NEXT LOCATION 
19CA FE CE 4707 c DEC DH 
19cc «675 cl 4708 c oNZ s9 ; KEEP GOING 
19CE 5E 4709 c POP sI ; RECOVER CODE PONTER 
19CF 5F 4710 Cc POP DI ; RECOVER REGEN POINTER 
19D0 47 4711 c INC DI ; POINT TO NEXT CHAR 
19D1 47 4712 c INC DI 
19D2 E2 B7 4713 c LOOP s8 ; MORE TO WRITE 
19D4 E9 219E R 4714 c MP V_RET 
19D7 4715 C GRAPHICS_WRITE ENDP 
4716 c 
4717 C  pooee------------------------------------- === === === === === 
4718 c 
4719 c CHAR TO WRITE 
4720 c DISPLAY PAGE 
4721 c ATTRIBUTE/COLOR 
4722 c COUNT OF CHARS TO WRITE 
4723 CC pooee------------------------------------- === === === === 
19D7 4724 c NEAR 
4725 c ASSUME DS:ABSO,ES:NOTHING 
19D7 80 FC OF 4726 c CMP AH, OFH ; 640X350 GRAPHICS 
19DA 72 OF 4727 c JB NO_ADJ1 
19DC  E8 14F7 R 4728 c CALL MEM_DET ; BASE CARD 
19DF 72 09 4729 c gc NO_ADJ1 
19E1 80 E3 85 4730 c AND BL, 10000101B ; 85H, XOR C2 CO MASK 
19E4 8A E3 4731 c MOV AH, BL 
19E6 DO E4 4732 c SHL AH, 1 ; EXPAND CO TO Cl, C2 TO C3 
19E8 OA DC 4733 c OR BL, AH ; BUILD ?(80H) * (0,3,C,F) 
19EA 4734 Cc NO_ADJ1: 
19EA 2A E4 4735 c SUB AH, AH ; ZERO 
19EC F7 26 0485 R 4736 c MUL POINTS ; OFFSET FONT TABLE BASE 
19FO 50 4737 c PUSH AX ; FONT TABLE DISPLACEMENT 
19Fl E8 16BA R 4738 c CALL GR_CUR ; GET OFFSET INTO REGEN 
19F4 8B F8 4739 c MOV DI,AX ; INTO DESTINATION 
19F6 8B 2E 0485 R 4740 c MOV BP, POINTS ; BYTES PER CHAR 
4741 c SRLOAD ES, 0A000H ; REGEN SEGEMNT 
19FA BA A000 4742 c+ MOV DX, 0A000H 
19FD 8E C2 4743 c+ MOV ES,DX 
19FF C5 36 010C R 4744 c LDS SI,GRX_SET ; ADDRESSING TO FONTS 
1A03 58 4745 c POP AX ; RECOVER OFFSET 
1A04 03 FO 4746 c ADD SI,AX ; CHARACTER IN TABLE 
1A06 B6 03 4747 c MOV DH, 3 
1A08 4748 Cc S20aA: 
1A08 F6 C3 80 4749 c TEST BL, 080H ; TEST FOR XOR 
1A0B 74 OB 4750 c oz NO_XOR ; NO XOR 
1A0D B2 CE 4751 c MOV DL, GRAPH_ADDR 
1A0F B8 0318 4752 c MOV AX, 0318H ; GRAPHICS CHIP XOR 
1A12 E8 OD15 R 4753 c CALL OUT_DX ; SET REGISTER 
1A15 EB 1E 90 4754 c MP F_2 ; SKIP BLANK 
1A18 4755 C NO_XoR: ; BLANK BOX FOR CHAR 
1A18 57 4756 c PUSH DI ; SAVE REGEN POINTER 
1A19 B2 C4 4757 c MOV DL, SEQ_ADDR 
1A1B B8 020F 4758 c MOV AX, 020FH ; ENABLE ALL MAPS 
1A1E E8 0D15 R 4759 c CALL OUT_DxX 
1A21 2B CO 4760 c SUB AX, AX ; STORE ZERO 
1A23 51 4761 c PUSH cx ; SAVE CHARACTER COUNT 
1A24 8B CD 4762 c MOV CX, BP ; GET BYTE COUNT 
1A26 1E 4763 c PUSH DS 
1A27 E8 OCFE R 4764 c CALL DDS 
1A2A 4765 Cc S13A: 
1A2A AA 4766 c STOSB ; ZERO REGEN BYTE 
1A2B 03 3E 044A R 4767 c ADD DI, CRT_COLS ; NEXT BYTE OF BOX 
1A2F 4F 4768 c DEC DI ; ADJUST 
1A30 E2 F8 4769 c LOOP S13A ; NEXT BYTE 
1A32 1F 4770 c POP DS 
1A33 59 4771 c POP cx ; RECOVER CHARACTER COUNT 
1A34 5F 4772 c POP DI ; RECOVER REGEN POINTER 
1A35 4773 c F2 
1A35 B2 C4 4774 c MOV DL, SEQ_ADDR 
1A37  B4 02 4775 c MOV AH, 02H ; SET MAP MASK 
1A39 8A C3 4776 c MOV AL, BL ; FOR COLOR 
1A3B E8 0D15 R 4777 c CALL OUT_Dx ; SET THE CHIP 
1A3E 57 4778 c PUSH DI ; SAVE OFFSET IN REGEN 
1A3F 53 4779 c PUSH BX ; SAVE COLOR VALUE 
1A40 51 4780 c PUSH cx ; SAVE CHACTER COUNT 
1A41 8B DD 4781 c MOV BX, BP ; LOOP CONTROL, BYTES/CHAR 
1A43 15 4782 c PUSH DS ; SAVE FONT SEGMENT 
1A44 E8 OCFE R 4783 c CALL DDS ; SET LOW RAM SEGMENT 
4784 c ASSUME DS:ABSO 
1A47 8B OF 044A R 4785 c MOV CX, CRT_COLS ; GET COLUMN COUNT 
1A4B 1F 4786 c POP DS ; RESTORE FONT SEGMENT 
4787 c ASSUME DS:NOTHING 
1A4c 4788 Cc S1K: ; WRITE OUT THE CHARACTER 
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1a4c 8A 04 4789 c MOV AL,DS: [ST] ; CODE POINT 
1A4E 26: 8A 25 4790 c MOV AH, ES: [DI] ; LATCH DATA 
1A51 26: 88 05 4791 c MOV ES: [DI], AL ; WRITE ONE BYTE OF FONT 
1A54 46 4792 c INC SI ; NEXT FONT POINT 
1A55 03 F9 4793 c ADD DI,CX ; ONE ROW BELOW LAST POINT 
1A57 4B 4794 c DEC BX ; BYTES PER CHAR COUNTER 
1A58 75 F2 4795 c JNZ $1K ; DO NEXT ROW OF CHARACTER 
4796 c 
1A5A 59 4797 c POP cx ; CHARACTER COUNT 
1A5B 5B 4798 c POP BX ; COLOR VALUE 
1A5C 2B F5 4799 c SUB SI,BP ; ADJUST PTR TO FONT TABLE 
1A5E 5F 4800 c POP DI ; REGEN POINTER 
1A5F 47 4801 fe) INC DI ; NEXT CHAR POSN IN REGEN 
1A60 E2 A6 4802 c LOOP S20A ; WRITE ANOTHER CHARACTER 
4803 c 
1A62 B2 CE 4804 c MOV DL, GRAPH_ADDR 
1A64 B8 0300 4805 c MOV AX, 0300H ; NORMAL WRITE, NO ROTATE 
1A67 E8 OD15 R 4806 c CALL oOUT_Dx ; SET THE CHIP 
1A6A B2 C4 4807 c MOV DL, SEQ_ADDR 
1A6C B8 020F 4808 c MOV AX, 020FH ; ENABLE ALL MAPS 
1A6F E8 OD15 R 4809 c CALL ouT_Dx ; SET THE CHIP 
1A72 EQ 219E R 4810 c oMP V_RET 
1A75 4811 C GRX_WRT ENDP 
4812 c 
4813 c SUBTTL 
4814 
4815 —o SET COLOR PALETTE 
4816 
1A75 4817 AHB: 
4818 ASSUME DS:ABSO 
1A75 80 3E 0463 R B4 4819 CMP BYTE PTR ADDR_6845, 0B4H 
1A7A 74 09 4820 JE M21_B ; CALL VALID ONLY FOR COLOR 
1A7C F6 06 0487 R 02 4821 TEST INFO, 2 ; SEE IF TS THE OLD COLOR CARD 
1A81 74 05 4822 IZ M21_A ; IF NOT, HANDLE IT HERE 
1A83 CD 42 4823 INT 42H ; OLD CODE CALL 
1A85 4824 M21_B: 
1A85 E9 219E R 4825 oMP V_RET ; BACK TO CALLER 
1A88 4826 M21_A: 
1A88 2B CO 4827 SUB AX, AX 
1A8A 8B E8 4828 MOV BP, AX 
1A8C C4 3E 04A8 R 4829 LES DI, SAVE_PTR 
1A90 83 C7 04 4830 ADD DI,4 
1A93 26: C4 3D 4831 LES DI,DWORD PTR ES: [DI] 
1A96 8C CO 4832 MOV AX, ES 
1A98 OB C7 4833 OR AX,DI 
1A9A 74 O01 4834 IZ NOTHAHB 
1a9c 45 4835 INC BP 
1A9D 4836 NOTHAEB : 
1A9D E8 1DCO R 4837 CALL PAL_INIT 
1AAO OA FF 4838 OR BH, BH 
1AA2 75 65 4839 JNZ M20 
4840 
4841 —o HANDLE BH = 0 HERE 
4842 ; ALPHA MODES => BL = OVERSCAN COLOR 
4843 ; GRAPHICS => BL = OVERSCAN AND BACKGROUND COLOR 
4844 
4845 ; — MOVE INTENSITY BIT FROM D3 TO D4 FOR COMPATIBILITY 
4846 
1AA4 8A FB 4847 MOV BH, BL 
1AA6 AO 0466 R 4848 MOV AL, CRT_PALETTE 
1AA9 24 EO 4849 AND AL, OEOH 
1AAB 80 E3 1F 4850 AND BL, 01FH 
1AAE 0A C3 4851 OR AL, BL 
1ABO A2 0466 R 4852 MOV CRT_PALETTE, AL 
1AB3 8A DF 4853 MOV BL, BH 
1AB5 80 E7 08 4854 AND BH, 08H 
1AB8 DO E7 4855 SHL BH, 1 
1ABA 8A E8 4856 MOV CH, AL 
1ABC 80 E5 EF 4857 AND CH, OEFH 
1ABF OA ED 4858 OR CH, CH 
1AC1 80 E3 OF 4859 AND BL, OFH 
1ac4 8A FB 4860 MOV BH, BL 
1AC6 DO E3 4861 SHL BL, 1 
1Aac8 80 E3 10 4862 AND BL, 0010H 
1ACB 80 E7 07 4863 AND BH, 07H 
1ACE OA DF 4864 OR BL, BH 
4865 
1AD0 AO 0449 R 4866 MOV AL, CRT_MODE 
1AD3 3C 03 4867 CMP AL, 3 
1AD5 76 OE 4868 JBE M21 
4869 
4870 —o GRAPHICS MODE DONE HERE (SET PALETTE 0 AND OVERSCAN) 
4871 
1AD7 B4 00 4872 MOV AH, 0 
1AD9 8A C3 4873 MOV AL, BL 
1ADB E8 1D9F R 4874 CALL PAL_SET 
4875 
1ADE OB ED 4876 OR BP, BP 
1AEO 74 03 4877 IZ M21 
1AE2 26: 88 1D 4878 MOV ES: [DI],BL 
4879 
4880 ; — ALPHA MODE DONE HERE (SET OVERSCAN REGISTER) 
4881 
1AE5 4882 M21: 
1AE5 80 3E 0449 R 03 4883 CMP CRT_MODE, 3 ; CHECK FOR AN ENHANCED MODE 
1AEA 77 05 4884 JA SET_OVRSC ; NO CHANCE 
1AEC E8 OE9A R 4885 CALL BRST_DET ; SEE IF WE ARE ENHANCED 
1AEF 72 07 4886 gc SKIP_OVRSC ; THERE IS NO BORDER 
1AF1 4887 SET_OVRSC: 
1AF1 B4 11 4888 MOV AH, 011H ; OVERSCAN REGISTER 
1AF3 8A C3 4889 MOV AL, BL 
1AF5 E8 1D9F R 4890 CALL PAL_SET ; SET THE BORDER 
1AF8 4891 SKIP_OVRSC: 
1AF8 OB ED 4892 OR BP, BP 
1AFA 74 04 4893 IZ M21Y 
1AFC 26: 88 5D 10 4894 MOV ES: [DI] [16D], BL 
1B00 4895 M21Y: 
1B00 8A DD 4896 MOV BL, CH 
1B02 80 E3 20 4897 AND BL, 0020H 
1B05 Bl 05 4898 MOV CL,5 
1B07 D2 EB 4899 SHR BL,CL 
4900 
4901 —o HANDLE BH = 1 HERE 
4902 ; ALPHA MODES => NO EFFECT 
4903 i GRAPHICS => LOW BIT OF BL = 0 
4904 i; PALETTE 0 = BACKGROUND 
4905 i; PALETTE 1 = GREEN 
4906 ; PALETTE 2 = RED 
4907 ; PALETTE 3 = BROWN 
4908 ; => LOW BIT OF BL = 1 
4909 i PALETTE 0 = BACKGROUND 
4910 ; PALETTE 1 = CYAN 
4911 i PALETTE 2 = MAGENTA 
4912 ; PALETTE 3 = WHITE 
4913 ; 


4914 


40 


1B09 
1B09 
1BOE 


1B10 
1B13 
1B15 
1B18 
1B1A 
1B1Cc 
1B1C 
1B1F 
1B21 
1B23 
1B25 
1B27 
1B29 


1B2C 
1B2E 
1B30 
1B34 


1B34 
1B36 
1B38 
1B3A 
1B3C 


1B3F 
1B41 
1B43 
1B47 


1B47 
1B49 
1B4B 
1B4D 
1B4F 


1B52 
1B54 
1B56 


1B5A 
1B5A 
1B5D 


1B60 


1B60 
1B64 
1B65 
1B67 
1B69 


1B6B 
1B6D 
1B6F 
1B71 
1B73 
1B77 
1B79 
1B79 
1B7B 
1B7D 
1B7D 
1B7E 
1B80 
1B83 
1B85 
1B87 
1B88 


1B88 
1B88 
1B89 


1B8A 
1B8C 
1B8D 
1B90 


1B92 
1B93 
1B96 
1B98 
1B9B 
1B9B 
1B9D 
1B9E 


53 


3E 0449 R 03 
4A 


88 5D 01 


88 5D 02 


88 5D 03 


26 044A R 


EQ 
EQ 
EQ 


c1 
DF 
FF 
CB 
1E 044C R 
04 


c3 
FC 


Ds 
El 07 
80 
E8 


28 
E2 FE 
E2 


c2 01 
03 
2000 
FO 


D1 


4915 
4916 
4917 
4918 
4919 
4920 
4921 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 
4931 
4932 
4933 
4934 
4935 
4936 
4937 
4938 
4939 
4940 
4941 
4942 
4943 
4944 
4945 
4946 
4947 
4948 
4949 
4950 
4951 
4952 
4953 
4954 
4955 
4956 
4957 
4958 
4959 
4960 
4961 
4962 
4963 
4964 
4965 
4966 
4967 
4968 
4969 
4970 
4971 
4972 
4973 
4974 
4975 
4976 
4977 
4978 
4979 
4980 
4981 
4982 
4983 
4984 
4985 
4986 
4987 
4988 
4989 
4990 
4991 
4992 
4993 
4994 
4995 
4996 
4997 
4998 
4999 
5000 
5001 
5002 
5003 
5004 
5005 
5006 
5007 
5008 
5009 
5010 
5011 
5012 
5013 
5014 
5015 
5016 
5017 
5018 
5019 
5020 
5021 
5022 
5023 
5024 
5025 
5026 
5027 
5028 
5029 
5030 
5031 
5032 
5033 
5034 
5035 
5036 
5037 
5038 
5039 
5040 
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M20: 
CMP CRT_MODE, 3 
JBE M80 
MOV AL, CRT_PALETTE 
AND AL, ODFH 
AND BL,1 
JZ M22 
OR AL, 020H 
M22 
MOV CRT_PALETTE, AL 
AND AL, 010H 
OR AL,2 
OR BL, AL 
MOV AH,1 
MOV AL, BL 
CALL PAL_SET 
OR BP, BP 
JZ M22Y 
MOV ES: [DI] [1],BL 
M22Y: 
INC BL 
INC BL 
MOV AH,2 
MOV AL, BL 
CALL PAL_SET 
OR BP, BP 
JZ M27Y 
MOV ES: [DI] [2],BL 
M27Y: 
INC BL 
INC BL 
MOV AH,3 
MOV AL, BL 
CALL PAL_SET 
OR BP, BP 
JZ M80 
MOV ES: [DI] [3],BL 
M80: 
CALL PAL_ON 
MP V_RET 
INCLUDE VDOT. INC 
SUBTTL VDOT.INC 
PAGE 
i 
; ENTRY 
; DX = ROW 
; CX = COLUMN 
; BH = PAGE 
; EXIT 
; BX = OFFSET INTO REGEN 
; AL BIT MASK FOR COLUMN BYTE 
i 
DOT_SUP_1 PROC NEAR 


p==S== OFFSET = PAGE OFFSET ROW * BYTES/ROW * COLUMN/8 


MUL WORD PTR CRT_COLS ; ROW * BYTES/ROW 
PUSH cx ; SAVE COLUMN VALUE 
SHR cx,1 ; DIVIDE BY EIGHT TO 
SHR cx,1 ; DETERMINE THE BYTE THAT 
SHR cx,1 ; THIS DOT IS IN 
; (8 BITS/BYTE) 

ADD AX,CX ; BYTE OFFSET INTO PAGE 
MOV BL, BH ; GET PAGE INTO BL 
SUB BH, BH ; ZERO 
MOV Cx, BX ; COUNT VALUE 
MOV BX, CRT_LEN ; LENGTH OF ONE PAGE 
JCXZ DS_2 ; PAGE ZERO 

DS_3: 
ADD AX, BX ; BUMP TO NEXT PAGE 
LOOP Ds_3 ; DO FOR THE REST 

DS_2: 
POP cx ; RECOVER COLUMN VALUE 
MOV BX, AX ; REGEN OFFSET 
AND CL,07H ; SHIFT COUNT FOR BIT MASK 
MOV AL, 080H ; MASK BIT 
SHR AL,CL ; POSITION MASK BIT 
RET 

DOT_SUP_1 ENDP 


i 

; THIS SUBROUTINE DETERMINES THE REGEN BYTE LOCATION 
; OF THE INDICATED ROW COLUMN VALUE IN GRAPHICS MODE. 
; ENTRY -- 

; DX = ROW VALUE (0-199) 

; CX = COLUMN VALUE (0-639) 

i 

; 

i 

; 

i 


EXIT -- 
SI = OFFSET INTO REGEN BUFFER FOR BYTE OF INTEREST 
AH = MASK TO STRIP OFF THE BITS OF INTEREST 
CL = BITS TO SHIFT TO RIGHT JUSTIFY THE MASK IN AH 
DH = BITS IN RESULT 
7 
R3 PROC NEAR 
PUSH BX ; SAVE BX DURING OPERATION 
PUSH AX ; WILL SAVE AL DURING OPERATION 


— DETERMINE 1ST BYTE IN IDICATED ROW BY MULTIPLYING ROW VALUE BY 40 
— ( LOW BIT OF ROW DETERMINES EVEN/ODD, 80 BYTES/ROW 








MOV AL, 40 

PUSH DX ; SAVE ROW VALUE 

AND DL, OFEH ; STRIP OFF ODD/EVEN BIT 

MUL DL ; AX HAS ADDRESS OF 1ST BYTE 
; OF INDICATED ROW 

POP DX ; RECOVER IT 

TEST DL,1 ; TEST FOR EVEN/ODD 

oz R4 ; JUMP IF EVEN ROW 

ADD AX, 2000H ; OFFSET TO LOCATION OF ODD ROWS 

R4: ; EVEN_ROW 

MOV SI,AX ; MOVE POINTER TO SI 

POP AX ; RECOVER AL VALUE 

MOV Dx, CX ; COLUMN VALUE TO DX 


poss— DETERMINE GRAPHICS MODE CURRENTLY IN EFFECT 


; SET UP THE REGISTERS ACCORDING TO THE MODE 
; CH = MASK FOR LOW OF COLUMN ADDRESS ( 7/3 FOR HIGH/MED RES) 
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41 


1BCB 


1BCB 
1BDO 


1BD2 
1BD2 


1BD3 
1BD6 
1BD8 
1BD9 
1BDA 
1BDB 
1BDE 
1BEO 
1BE2 
1BE5 
1BE6 
1BE9 
1BEB 
1BED 
1BEF 
1BF1 
1BF1 
1BF4 
1BF5 
1BF8 
1BF8 
1BFA 
1BFC 


1BFC 
1BFC 
1co1 
1c03 
1006 
1c08 
1CcOA 
1coc 
1COE 
1c10 
1c10 
1c11 
1c13 
1016 
1c18 
1c1laA 
1cic 
1c1F 


1c¢20 
1c23 
1c25 
1026 
1027 
1c29 
1c2c 
1C2E 
1c¢30 
1032 
1¢35 
1038 
1038 
1C3A 
1c3c 
1C3E 


22 


80 
77 


52 


02c0 

0302 

3E 0449 R 06 
06 

0180 

0703 


3E 0449 R 07 
2A 


B800 
c2 


1B88 R 
E8 
c4 

8A 0C 


c3 80 
oD 
D4 
cc 
cl 

88 04 
219E R 


c1 
F5 


3E 0449 R OF 


5041 
5042 
5043 
5044 
5045 
5046 
5047 
5048 
5049 
5050 
5051 
5052 
5053 
5054 
5055 
5056 
5057 
5058 
5059 
5060 
5061 
5062 
5063 
5064 
5065 
5066 
5067 
5068 
5069 
5070 
5071 
5072 
5073 
5074 
5075 
5076 
5077 
5078 
5079 
5080 
5081 
5082 
5083 
5084 
5085 
5086 
5087 
5088 
5089 
5090 
5091 
5092 
5093 
5094 
5095 
5096 
5097 
5098 
5099 
5100 
5101 
5102 
5103 
5104 
5105 
5106 
5107 
5108 
5109 
5110 
5111 
5112 
5113 
5114 
5115 
5116 
5117 
5118 
5119 
5120 
5121 
5122 
5123 
5124 
5125 
5126 
5127 
5128 
5129 
5130 
5131 
5132 
5133 
5134 
5135 
5136 
5137 
5138 
5139 
5140 
5141 
5142 
5143 
5144 
5145 
5146 
5147 
5148 
5149 
5150 
5151 
5152 
5153 
5154 
5155 
5156 
5157 
5158 
5159 
5160 
5161 
5162 
5163 
5164 
5165 
5166 
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; CL = # ADDRESS BITS IN COLUMN VALUE ( 3/2 FOR H/M) 
; BL = MASK TO SELECT BITS FROM POINTED BYTE (80H/COH FOR H/M) 
; = 








BH NUMBER OF VALID BITS IN POINTED BYTE ( 1/2 FOR H/M) 
jo-o+----------------------- +--+ +--+ +--+ +--+ +--+ +--+ +--+ 
MOV BX, 2COH 
MOV CX, 302H ; SET PARMS FOR MED RES 
CMP CRT_MODE, 6 
JC R5 ; HANDLE IF MED ARES 
MOV BX, 180H 
MOV CX, 703H ; SET PARMS FOR HIGH RES 
,-sTS> DETERMINE BIT OFFSET IN BYTE FROM COLUMN MASK 
RS: 
AND CH, DL ; ADDRESS OF PEL WITHIN BYTE TO CH 
ic DETERMINE BYTE OFFSET FOR THIS LOCATION IN COLUMN 
SHR Dx,CL ; SHIFT BY CORRECT AMOUNT 
ADD SI,DX ; INCREMENT THE POINTER 
MOV DH, BH ; GET THE # OF BITS IN RESULT TO DH 
icc MULTIPLY BH (VALID BITS IN BYTE) BY CH (BIT OFFSET) 
SUB CcCL,CL ; ZERO INTO STORAGE LOCATION 
R6: 
ROR AL,1 ; LEFT JUSTIFY THE VALUE 
; IN AL (FOR WRITE) 
ADD CL, CH ; ADD IN THE BIT OFFSET VALUE 
DEC BH ; LOOP CONTROL 
JNZ R6 ; ON EXIT, CL HAS SHIFT COUNT 
; TO RESTORE BITS 
MOV AH, BL ; GET MASK TO AH 
SHR AH, CL ; MOVE THE MASK TO CORRECT LOCATION 
POP BX ; RECOVER REG 
RET ; RETURN WITH EVERYTHING SET UP 
R3 ENDP 
jo--+------------------------+----------+-------------------------- 
; READ DOT -- WRITE DOT 
; THESE ROUTINES WILL WRITE A DOT, OR READ THE DOT AT 
; THE INDICATED LOCATION 
; ENTRY —- 
; DX = ROW (0-199) (THE ACTUAL VALUE DEPENDS ON THE MODE) 
; CX = COLUMN ( 0-639) ( THE VALUES ARE NOT RANGE CHECKED ) 
; AL = DOT VALUE TO WRITE (1,2 OR 4 BITS DEPENDING ON MODE, 
; REQD FOR WRITE DOT ONLY, RIGHT JUSTIFIED) 
; BIT 7 OF AL=1 INDICATES XOR THE VALUE INTO THE LOCATION 
; DS = DATA SEGMENT 
; ES = REGEN SEGMENT 
i 
; EXIT 
i 


AL = DOT VALUE READ, RIGHT JUSTIFIED, READ ONLY 





WRITE DOT 
AHC 

ASSUME DS:ABSO 

CMP CRT_MODE, 7 

JA WRITE_DOT_2 
WRITE_DOT PROC NEAR 

ASSUME DS:ABSO,ES:NOTHING 

PUSH DX 

SRLOAD ES, 0OB800H 

MOV DX, 0B800H 

MOV ES,DX 

POP DX 

PUSH AX ; SAVE DOT VALUE 

PUSH AX ; TWICE 

CALL R3 ; DETERMINE BYTE POSITION OF THE DOT 

SHR AL,CL ; SHIFT TO SET UP THE BITS FOR OUTPUT 

AND AL, AH ; STRIP OFF THE OTHER BITS 

MOV CL,ES: [SI] ; GET THE CURRENT BYTE 

POP BX ; RECOVER XOR FLAG 

TEST BL, 80H ; IS IT ON 

NZ R2 ; YES, XOR THE DOT 

NOT AH ; SET THE MASK TO REMOVE THE 

AND CL, AH ; INDICATED BITS 

OR AL,CL ; OR IN THE NEW VALUE OF THOSE BITS 
R1: ; FINISH_DOT 

MOV ES: [SI], AL ; RESTORE THE BYTE IN MEMORY 

POP AX 

MP V_RET 
R2: ; XOR_DOT 

XOR AL,CL ; EXCLUSIVE OR THE DOTS 

MP R1 ; FINISH UP THE WRITING 
WRITE_DOT ENDP 
WRITE_DOT_2 PROC NEAR 

CMP CRT_MODE, OFH 

JB NO_ADJ2 

CALL MEM_DET ; BASE CARD 

gc NO_ADJ2 

AND AL, 10000101B ; 85H, XOR C2 CO MASK 

MOV AH, AL 

SHL AH, 1 ; EXPAND CO TO Cl, C2 TO C3 

OR AL, AH ; BUILD ?(80H) + (0,3,C,F) 
NO_ADJ2: 

PUSH AX 

MOV AX, DX ; ROW VALUE 

CALL DOT_SUP_1 ; BX=OFFSET,AL=BIT MASK 

MOV DH, 3 

MOV DL, GRAPH_ADDR ; GRAPHICS CHIP 

MOV AH, G_BIT_MASK ; BIT MASK REGISTER 

CALL OUT_DX ; SET BIT MASK 

PUSH DX 

SRLOAD ES, 0A000H ; REGEN SEGMENT 

MOV DX, 0A000H 

MOV ES,DX 

POP DX 

POP AX ; RECOVER COLOR 

MOV CH, AL ; SAVE COLOR 

TEST CH, 080H ; SEE IF XOR 

oz WD_A ; NO XOR 

MOV AH, G_DATA_ROT ; DO XOR 

MOV AL, 018H ; XOR FUNCTION 

CALL OUT_DX ; SET THE REGISTER 

MP WD_B ; SKIP THE BLANK 
WD_A ; BLANK THE DOT 

MOV DL, SEQ_ADDR ; SEQUENCER 

MOV AH, S_MAP ; MAP MASK 

MOV AL, OFFH ; ENABLE ALL MAPS 

CALL OUT_Dx ; SET THE REGISTER 
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1c41 
1044 
1046 
1c49 
1c49 
1C4B 
1c4D 
1C4F 
1c51 
1054 
1C57 
1c59 


1c5c 
1c5F 
1cé1 
1c63 
1c65 
1c68 
1C6A 
1céc 
1C6F 
1072 


1072 


1072 
1c¢73 


1074 
1077 
1¢79 
1C7A 
1C7B 
1C7D 
1c80 
1c82 
1c84 
1086 
1c88 
1c89 


1c89 
1c89 
1c8B 
1c8D 
1C8E 
1c90 
1c92 
1095 
1096 
1c99 
1C9B 
1C9E 
1C9F 


1C9F 


1C9F 
1caA4 


1CA6 
1CA6 


1CA7 
1CAA 
1cac 
1CAD 
1CBO 
1CB3 
1CB5 
1CB7 
1CB9 
1CBB 
1CBE 


1CBE 
1CBE 
1cc3 
1ccs5 
1ccs 


1ccA 


1ccaA 
1ccD 
1cbDO 
1cD2 
1cbD4 
1CD6 
1cD8 
1CDB 
1cDD 
1CDF 
1CE1 
1CE3 
1CE5 
1CE7 
1CEA 


1CEA 


1CEA 
1CED 
1CED 
1CFO 
1CF2 
1cr4 
1CF6 
1cFs 
1CFA 
1cFCc 
1CFE 
1D01 


80 
77 


52 


3E 0449 R 07 


18 


nn 


nn 


5167 
5168 
5169 
5170 
5171 
5172 
5173 
5174 
5175 
5176 
5177 
5178 
5179 
5180 
5181 
5182 
5183 
5184 
5185 
5186 
5187 
5188 
5189 
5190 
5191 
5192 
5193 
5194 
5195 
5196 
5197 
5198 
5199 
5200 
5201 
5202 
5203 
5204 
5205 
5206 
5207 
5208 
5209 
5210 
5211 
5212 
5213 
5214 
5215 
5216 
5217 
5218 
5219 
5220 
5221 
5222 
5223 
5224 
5225 
5226 
5227 
5228 
5229 
5230 
5231 
5232 
5233 
5234 
5235 
5236 
5237 
5238 
5239 
5240 
5241 
5242 
5243 
5244 
5245 
5246 
5247 
5248 
5249 
5250 
5251 
5252 
5253 
5254 
5255 
5256 
5257 
5258 
5259 
5260 
5261 
5262 
5263 
5264 
5265 
5266 
5267 
5268 
5269 
5270 
5271 
5272 
5273 
5274 
5275 
5276 
5277 
5278 
5279 
5280 
5281 
5282 
5283 
5284 
5285 
5286 
5287 
5288 
5289 
5290 
5291 
5292 
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MOV AL, ES: [BX] ; LATCH DATA 
SUB AL, AL ; ZERO 
MOV ES: [BX], AL ; BLANK THE DOT 
WD_B: ; SET THE COLOR MAP MASK 
MOV DL, SEQ_ADDR ; SEQUENCER 
MOV AH, S_MAP ; MAP MASK REGISTER 
MOV AL, CH ; COLOR VALUE 
AND AL, OFH ; VALUES 0-15 
CALL OUT_DX , SET IT 
MOV AL, ES: [BX] ; LATCH DATA 
MOV AL, OFFH ; WRITE VALUE 
MOV ES: [BX], AL ; SET THE DOT 
ji NORMALIZE THE ENVIRONMENT 
CALL OUT_DX ; ALL MAPS ON 
MOV DL, GRAPH_ADDR ; GRAPHICS CHIPS 
MOV AH,G_DATA_ROT ; XOR REGISTER 
SUB AL,AL ; NORMAL WRITES 
CALL OUT_DX , SET IT 
MOV AH, G_BIT_MASK ; BIT MASK 
MOV AL, OFFH ; ALL BITS ON 
CALL OUT_DX ; SET IT 
JMP V_RET ; WRITE DOT DONE 
WRITE_DOT_2 ENDP 
RD_S PROC NEAR 
ASSUME DS:ABSO 
PUSH AX 
PUSH Dx 
SRLOAD ES, O0A000H 
MOV DX, OAOOOH 
MOV ES,DX 
POP Dx 
POP AX 
MOV AX, DX 
CALL DOT_SUP_1 
MOV CH,7 
SUB CH,CL 
SUB Dx, DX 
MOV AL,O 
RET 
RD_S ENDP 
RD_1S PROC NEAR 
MOV CL, CH 
MOV AH, 4 
PUSH Dx 
MOV DH, 3 
MOV DL, GRAPH_ADDR 
CALL OUT_DX 
POP Dx 
MOV AH, ES: [BX] 
SHR AH, CL 
AND AH,1 
RET 
RD_1S  ENDP 
jocoo READ DOT 
AHD: 
ASSUME DS:ABSO 
CMP CRT_MODE, 7 
JA R1 
READ_DOT PROC NEAR 
ASSUME DS:ABSO,ES:NOTHING 
PUSH Dx 
SRLOAD ES, 0B800H 
MOV DX, OB800H 
MOV ES,DX 
POP DX 
CALL R3 ; DETERMINE BYTE POSITION OF DOT 
MOV AL,ES: [SI] ; GET THE BYTE 
AND AL, AH ; MASK OFF THE OTHER BITS IN THE BYTE 
SHL AL,CL ; LEFT JUSTIFY THE VALUE 
MOV CL, DH ; GET NUMBER OF BITS IN RESULT 
ROL AL,CL ; RIGHT JUSTIFY THE RESULT 
MP V_RET 
READ_DOT ENDP 
R11 
CMP CRT_MODE, OFH 
JB READ_DOT_2 
CALL MEM_DET 
gc READ_DOT_2 
READ_DOT_1 PROC NEAR ; 2 MAPS 
ASSUME DS:ABSO,ES:NOTHING 
CALL RD_S 
CALL RD_1s 
OR DL, AH 
SHL AH,1 
OR DL, AH 
MOV AL,2 
CALL RD_1s 
SHL AH,1 
SHL AH,1 
OR DL, AH 
SHL AH,1 
OR DL, AH 
MOV AL, DL 
MP V_RET 
READ_DOT_1 ENDP 
READ_DOT_2 PROC NEAR ; 4 MAPS 
ASSUME DS:ABSO,ES:NOTHING 
CALL RD_S 
RD_2A: 
CALL RD_1S 
MOV CL, AL 
SHL AH, CL 
OR DL, AH 
INC AL 
CMP AL,3 
JBE RD_2A 
MOV AL, DL 
MP V_RET 
READ_DOT_2 ENDP 
WRITE_TTY WRITE TELETYPE TO ACTIVE PAGE 
THIS INTERFACE PROVIDES A TELETYPE LIKE INTERFACE TO THE VIDEO 
CARD. THE INPUT CHARACTER IS WRITTEN TO THE CURRENT CURSOR 


POSITION, AND THE CURSOR IS MOVED TO THE NEXT POSITION. IF THE 
CURSOR LEAVES THE LAST COLUMN OF THE FIELD, THE COLUMN IS SET 


43 


1p01 


1p01 
1D02 
1D06 
1D07 
1D09 
1D0B 
1D0D 
1p11 


1D12 
1Dp14 
1D16 
1D18 
1D1A 
1p1ic 
1D1E 
1D20 


1D22 
1D24 
1D27 


1D29 
1D2B 
1D2F 
1D31 
1D33 
1D37 


1D39 
1D39 


1D3C 
1D3F 
1D41 
1D43 
1D45 
1D47 
1D49 
1D49 
1D4B 
1D4D 
1D4F 
1D4F 
1D52 
1D54 
1D58 
1D5c 
1D5E 
1D5E 
1D60 
1D60 
1D61 
1D64 
1D64 
1D66 
1D66 
1D68 


1D6A 
1D6A 
1Dé6c 
1D6E 
1D70 


1D72 
1D72 
1D74 


1D76 
1D76 
1D7A 
1D7C 


1D7E 
1D7E 
1D80 
1D83 


1D85 


1D85 
1D89 
1D8D 
1D90 
1D92 


E8 


2a 
EB 


E8 
EB 


3E 0462 R 


97 0450 R 


16 044A R 


36 0484 R 


115D R 


36 0484 R 
16 044A R 
CA 


D2 
FO 


36 0484 R 
E8 
BB 


02 
0D20 R 
DB 


26 044A R 
3E 0462 R 
0487 R 

80 

06 0449 R 


5293 
5294 
5295 
5296 
5297 
5298 
5299 
5300 
5301 
5302 
5303 
5304 
5305 
5306 
5307 
5308 
5309 
5310 
5311 
5312 
5313 
5314 
5315 
5316 
5317 
5318 
5319 
5320 
5321 
5322 
5323 
5324 
5325 
5326 
5327 
5328 
5329 
5330 
5331 
5332 
5333 
5334 
5335 
5336 
5337 
5338 
5339 
5340 
5341 
5342 
5343 
5344 
5345 
5346 
5347 
5348 
5349 
5350 
5351 
5352 
5353 
5354 
5355 
5356 
5357 
5358 
5359 
5360 
5361 
5362 
5363 
5364 
5365 
5366 
5367 
5368 
5369 
5370 
5371 
5372 
5373 
5374 
5375 
5376 
5377 
5378 
5379 
5380 
5381 
5382 
5383 
5384 
5385 
5386 
5387 
5388 
5389 
5390 
5391 
5392 
5393 
5394 
5395 
5396 
5397 
5398 
5399 
5400 
5401 
5402 
5403 
5404 
5405 
5406 
5407 
5408 
5409 
5410 
5411 
5412 
5413 
5414 
5415 
5416 
5417 
5418 
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U2: 


U3: 


U4: 


US: 


U6: 


UT: 


TO ZERO, AND THE ROW VALUE IS INCREMENTED. IF THE ROW VALUE 
LEAVES THE FIELD, THE CURSOR IS PLACED ON THE LAST ROW, FIRST 
COLUMN, AND THE ENTIRE SCREEN IS SCROLLED UP ONE LINE. WHEN 


THE SCREEN IS SCROLLED UP, THE ATTRIBUTE FOR FILLING THE NEWLY 
BLANKED LINE IS READ FROM THE CURSOR POSITION ON THE PREVIOUS 
LINE BEFORE THE SCROLL, IN CHARACTER MODE. IN GRAPHICS MODE, 
THE O COLOR IS USED. 


CURRENT CRT MODE 

(AL) CHARACTER TO BE WRITTEN 

NOTE THAT BACK SPACE, CAR RET, BELL AND LINE FEED ARE HANDLED 
AS COMMANDS RATHER THAN AS DISPLAYABLE GRAPHICS 

(BL) = FOREGROUND COLOR FOR CHAR WRITE IF CURRENTLY IN A 
GRAPHICS MODE 


ALL REGISTERS SAVED 


ASSUME CS:CODE,DS:ABSO 


PUSH AX ; SAVE REGISTERS 
MOV BH, ACTIVE_PAGE ; GET THE ACTIVE PAGE 
PUSH BX ; SAVE 

MOV BL, BH ; GET PAGE TO BL 

XOR BH, BH ; CLEAR HIGH BYTE 

SAL BX,1 ; *2 FOR WORD OFFSET 
MOV DX, [BX + OFFSET CURSOR_POSN] ; CURSOR, ACTIVE PAGE 
POP BX ; RECOVER 


CMP AL, ODH ; IS iT CARRIAGE RETURN 
JE v9 ; CAR_RET 
CMP AL, OAH ; IS IT A LINE FEED 
JE v10 ; LINE_FEED 
CMP AL, 08H ; IS IT A BACKSPACE 
JE U8 ; BACK_SPACE 
CMP AL, 07H ; IS IT A BELL 
JE vll ; BELL 
WRITE THE CHAR TO THE SCREEN 
MOV AH, 10 ; WRITE CHAR ONLY 
MOV cx,1 ; ONLY ONE CHAR 
INT 10H ; WRITE THE CHAR 
POSITION THE CURSOR FOR NEXT CHAR 
INC DL 
CMP DL, BYTE PTR CRT_COLS ; TEST FOR COLUMN OVERFLOW 
oNZ U7 ; SET_CURSOR 
SUB DL, DL ; COLUMN FOR CURSOR 
CMP DH, ROWS 
oNZ U6 ; SET_CURSOR_INC 
SCROLL REQUIRED 
CALL SET_CPOS ; SET THE CURSOR 
DETERMINE VALUE TO FILL WITH DURING SCROLL 
MOV AL, CRT_MODE ; GET THE CURRENT MODE 
CMP AL,4 
JB u2 ; READ-CURSOR 
SUB BH, BH ; FILL WITH BACKGROUND 
CMP AL,7 
INE U3 ; SCROLL-UP 
; READ-CURSOR 
MOV AH,8 
INT 10H ; READ CHAR/ATTR 
MOV BH, AH ; STORE IN BH 
; SCROLL-UP 
MOV AX, 601H ; SCROLL ONE LINE 
SUB cx, CX ; UPPER LEFT CORNER 
MOV DH, ROWS ; LOWER RIGHT ROW 
MOV DL, BYTE PTR CRT_COLS ; LOWER RIGHT COLUMN 
DEC DL 
; VIDEO-CALL-RETURN 
INT 10H ; SCROLL UP THE SCREEN 
; TTY-RETURN 
POP AX ; RESTORE THE CHARACTER 
MP V_RET ; RETURN TO CALLER 
; SET-CURSOR-INC 
INC DH ; NEXT ROW 
; SET-CURSOR 
MOV AH,2 
MP U4 ; ESTABLISH THE NEW CURSOR 


OR DL, DL ; ALREADY AT END OF LINE 
oz U7 ; SET CURSOR 
DEC DL ; NO -- JUST MOVE IT BACK 
MP U7 ; SET_CURSOR 


CARRIAGE RETURN FOUND 


SUB DL,DL ; MOVE TO FIRST COLUMN 
JMP U7 ; SET_CURSOR 


LINE FEED FOUND 


CMP DH, ROWS ; BOTTOM OF SCREEN 

JNE U6 ; YES, SCROLL THE SCREEN 
JMP ul ; NO, JUST SET THE CURSOR 
BELL FOUND 

MOV BL,2 ; SET UP COUNT FOR BEEP 
CALL BEEP ; SOUND THE POD BELL 

JMP U5 ; TTY_RETURN 


CURRENT VIDEO STATE 


ASSUME DS:ABSO 


MOV AH, BYTE PTR CRT_COLS ; GET NUMBER OF COLUMNS 
MOV BH, ACTIVE_PAGE 

MOV AL, INFO 

AND AL, 080H 

OR AL, CRT_MODE 
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1D96 
1D97 
1D98 
1D99 
1D9A 
1D9B 
1p9Cc 
1D9D 
1D9E 


1D9F 
1D9F 
1DAO 
1DA3 
1DA4 
1DA4 
1DA5 
1DA7 
1DA9 
1DAA 
1DAC 
1DAE 
1DAF 
1DB1 
1DB2 
1DB4 
1DB5 
1DB6 
1DB7 


1DB7 
1DB7 
1DBA 
1DBC 
1DBE 
1DBF 
1Dco 


1Dco 
1DcOo 
1Dc3 
1pc4 
1pc5 


1pc5 


1pc5 
1DCA 


1pcc 
1pD1 
1DD3 
1DD3 
1DD5 
1DD7 


1DD9 
1DDB 
1DDF 
1DE2 
1DE5 
1DE7 
1DE9 
1DEB 
1DEC 


1DEC 
1DEF 
1DF1 
1DF3 
1DF6 
1DF9 
1DFB 
1DFD 
1DFF 
1E01 
1E03 
1E06 
1E06 


1E09 
1E09 
1E0B 


1E0D 
1EOF 
1E13 
1E16 
1E19 
1E1B 
1E1D 
1E1F 
1E20 


1E20 
1E23 
1E25 
1E27 
1E2A 


1E2D 
1E2F 
1E31 
1E34 


1E37 
1E3A 


1E3A 
1E3C 


1E3E 
1E3F 


oD05 R 


os 
FB 


co 
c4 


c4 


20 


op05 R 


06 0487 R 02 
07 


3E 0463 R B4 


ED 
3E 04A8 R 
C7 04 
c4 3D 
co 
C7 
o1 


cc 
2D 


ED 
3E 04A8 R 
C7 04 
c4 3D 
co 
C7 
o1 


5419 
5420 
5421 
5422 
5423 
5424 
5425 
5426 
5427 
5428 
5429 
5430 
5431 
5432 
5433 
5434 
5435 
5436 
5437 
5438 
5439 
5440 
5441 
5442 
5443 
5444 
5445 
5446 
5447 
5448 
5449 
5450 
5451 
5452 
5453 
5454 
5455 
5456 
5457 
5458 
5459 
5460 
5461 
5462 
5463 
5464 
5465 
5466 
5467 
5468 
5469 
5470 
5471 
5472 
5473 
5474 
5475 
5476 
5477 
5478 
5479 
5480 
5481 
5482 
5483 
5484 
5485 
5486 
5487 
5488 
5489 
5490 
5491 
5492 
5493 
5494 
5495 
5496 
5497 
5498 
5499 
5500 
5501 
5502 
5503 
5504 
5505 
5506 
5507 
5508 
5509 
5510 
5511 
5512 
5513 
5514 
5515 
5516 
5517 
5518 
5519 
5520 
5521 
5522 
5523 
5524 
5525 
5526 
5527 
5528 
5529 
5530 
5531 
5532 
5533 
5534 
5535 
5536 
5537 
5538 
5539 
5540 
5541 
5542 
5543 
5544 
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POP 
POP 
POP 
POP 
POP 
POP 
POP 
POP 
IRET 


SUBTTL 


PAL_SET PROC 
PUSH 
CALL 
CLI 


IN 
TEST 
Ry4 
POP 
MOV 
XCHG 
out 
XCHG 
ouT 
MOV 
out 
STI 
RET 
PAL_SET ENDP 
PAL_ON PROC 
CALL 
MOV 
MOV 
ouT 
RET 
PAL_ON ENDP 
PAL_INIT 
CALL 
IN 
RET 
PAL_INIT 


DI 
sr 
cx 
cx 
Dx 
DS 
ES 
BP 


AL, DX 


B 
° 
@ 
= 


ATTR_WRITE 


AH 
AL 
AH 
AL 


RPRPSERRS 


AL 


NEAR 
PAL_INIT 

DL, ATTR_WRITE 
AL, 020H 

DX, AL 


PROC NEAR 
WHAT_BASE 
AL, DX 


ENDP 


= SET PALETTE REGISTERS 


BM_OK: 


OR 
JNZ 


TLO_1: 


BM_OUT: 


BM_1: 


DS:ABSO 
INFO, 2 
BM_OK 


EGA IS IN A COLOR MODE 


BYTE PTR ADDR_6845, 0B4H 
BM_OUT 


BP, BP 
DI, SAVE_PTR 

DI,4 

DI,DWORD PTR ES: [DI] 
AX, ES 

AX, DI 

TLO_1 

BP 


PAL_INIT 
AH, BL 

AL, BH 
PAL_SET 
PAL_ON 

BP, BP 
BM_OUT 

AL, BH 

BH, BH 
DI,BX 

ES: [DI], AL 


V_RET 


AH 
BM_2 


BP, BP 
DI, SAVE_PTR 

DI,4 

DI,DWORD PTR ES: [DI] 
AX, ES 

AX, DI 

TLO_2 

BP 


jrccc SET OVERSCAN REGISTER 


CALL 
MOV 
MOV 


DEC 
JNZ 


PAL_INIT 
AH,011H 
AL, BH 
PAL_SET 
PAL_ON 


BP, BP 
BM_OUT 
DI,011H 
ES: [DI],BH 


V_RET 


AH 
BM_3 


7 


; 


7 
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DISCARD BX 


VERTICAL RETRACE 


IN MONOCHROME MODE 


j==—== SET 16 PALETTE REGISTERS AND OVERSCAN REGISTER 


PUSH 
PUSH 


DS 
ES 
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1E40 
1E44 
1E47 
1E4A 
1E4C 
1E4E 


1E50 
1E51 
1E52 
1E54 
1E57 


1E59 
1E59 
1E5A 


1E5B 
1E5D 
1E60 
1E62 
1E62 
1E65 
1E68 
1E6A 
1E6B 
1E6E 
1E70 
1E72 
1E75 
1E78 
1E7B 


1E7E 
1E7E 
1E80 


1E82 
1E83 
1E86 
1E89 
1E8C 


1E8D 
1E8F 


1E91 
1E96 
1E98 
1E9B 
1E9B 
1E9D 


1E9F 
1EA4 
1EA6 
1EA6 
1EA8 
1EAB 
1EAB 


1EAE 
1EAE 
1EAF 
1EBO 
1EB1 
1EB2 
1EB3 


1EB4 
1EB7 
1EBA 
1EBB 
1EBD 
1EBF 
1EC4 
1EC6 
1EC6 
1ECB 
1ECB 
1ECE 
1ED1 
1ED2 


1ED5 
1ED6 
1ED7 
1ED8 
1ED9 
1EDA 


1EDB 
1EDD 
1EDF 
1EEO 
1EE1 
1EE3 
1EE6 
1EE8 
1EEA 
1EEC 
1EEF 
1EF1 
1EF1 
1EF3 


3E 04A8 R 


26 0465 R DF 


oc 90 


OE 0465 R 20 


06 0449 R OB 
05 


06 0449 R OC 


ODAB R 
OCFE R 


0449 R 


5545 
5546 
5547 
5548 
5549 
5550 
5551 
5552 
5553 
5554 
5555 
5556 
5557 
5558 
5559 
5560 
5561 
5562 
5563 
5564 
5565 
5566 
5567 
5568 
5569 
5570 
5571 
5572 
5573 
5574 
5575 
5576 
5577 
5578 
5579 
5580 
5581 
5582 
5583 
5584 
5585 
5586 
5587 
5588 
5589 
5590 
5591 
5592 
5593 
5594 
5595 
5596 
5597 
5598 
5599 
5600 
5601 
5602 
5603 
5604 
5605 
5606 
5607 
5608 
5609 
5610 
5611 
5612 
5613 
5614 
5615 
5616 
5617 
5618 
5619 
5620 
5621 
5622 
5623 
5624 
5625 
5626 
5627 
5628 
5629 
5630 
5631 
5632 
5633 
5634 
5635 
5636 
5637 
5638 
5639 
5640 
5641 
5642 
5643 
5644 
5645 
5646 
5647 
5648 
5649 
5650 
5651 
5652 
5653 
5654 
5655 
5656 
5657 
5658 
5659 
5660 
5661 
5662 
5663 
5664 
5665 
5666 
5667 
5668 
5669 
5670 
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LES DI, SAVE_PTR 
ADD DI,4 
LES DI,DWORD PTR ES: [DI] ; 
MOV AX,ES 
OR AX,DI 
JZ TLO_3 
POP Ds ; 
PUSH DS 
MOV SI,DX ; 
MOV cx, 17D 
REP MOVSB 
TLO_3: 
POP ES 
POP DS 
MOV BX, DX 
CALL PAL_INIT 
SUB AH, AH 
BM_2A: 
MOV AL, ES: [BX] 
CALL PAL_SET 
INC AH 
INC BX 
CMP AH, 010H 
JB BM_2A 
INC AH 
MOV AL, ES: [BX] 
CALL PAL_SET 
CALL PAL_ON 
MP V_RET 
BM_3 
DEC AH 
INZ BM_4 
jcc TOGGLE INTENSIFY/BLINKING BIT 
PUSH BX 
CALL MAKE_BASE 
ADD BX,010H + LN_4 
MOV AL, ES: [BX] 
POP BX 
OR BL, BL 
INZ BM_6 
icc ENABLE INTENSIFY 
AND CRT_MODE_SET,11011111B 
AND AL, OF7H 
MP BM_7 
BM_6 
DEC BL 
INZ BM_7 
ioc ENABLE BLINK 
OR CRT_MODE_SET, 020H 
OR AL, 08H 
BM_7 
MOV AH, P_MODE 
CALL PAL_SET 
BM_4 
MP V_RET 
INCLUDE VCHGEN . INC 
SUBTTL VCHGEN . INC 
PAGE 
i 
; ENTRY 
; AL = 0 USER SPECIFIED FONT 
; 1 8 X 14 FONT 
; 2 8 X 8 DOUBLE DOT 
; BL = BLOCK TO LOAD 
i 
CH_GEN 
PUSH AX ; 
PUSH BP 
PUSH BX 
PUSH cx 
PUSH Dx 
PUSH ES 
ASSUME DS:ABSO 
CALL DDS ; 
MOV AL, CRT_MODE ; 
PUSH AX ; 
CMP AL,7 ; 
JE H14 ; 
MOV CRT_MODE, 0BH ; 
JUMP SHORT H15 ; 
H14: 
MOV CRT_MODE, 0CH ; 
H15: 
CALL SET_REGS 
CALL DDS ; 
POP AX ; 
MOV CRT_MODE, AL ; 
POP ES ; 
POP Dx ; 
POP cx ; 
POP BX 
POP BP 
POP AX 
OR AL, AL ; 
JZ DO_MAP2 ; 
PUSH cs ; 
POP ES ; 
SUB Dx, DX ; 
MOV cx, 0256D ; 
DEC AL ; 
INZ H7 ; 
MOV BH, 014D ; 
MOV BP,OFFSET CGMN ; 
MP SHORT DO_MAP2 ; 
H7: 
MOV BH,8 ; 
MOV BP,OFFSET CGDDOT ; 


; ALPHA CHARACTER GENERATOR LOAD 
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ES:DI PTR TO PAL SAVE AREA 


PARAMETER ES 


PARAMETER OFFSET 


SAVE THE INVOLVED REGS 


SET DATA SEGMENT 

GET THE CURRENT MODE 
SAVE IT 

IS THIS MONOCHROME 
MONOCHROME VALUES 
COLOR VALUES 

SKIP 


MONOCHROME VALUES 


RESET THE DATA SEGMENT 
RECOVER OLD MODE VALUE 
RETURN TO LOW MEMORY 


RESTORE REGS THAT WERE 
USED BY THE MODE SET 
ROUTINES 


SET FLAGS 
USER SPECIFIED FONT 
SET SEGMENT TO 

THIS MODULE 

ZERO OUT START OFFSET 
CHAR COUNT (FULL SET) 
WHICH PARAMETER 
MUST BE ONE 
BYTES PER CHARACTER 
8 X 14 TABLE OFFSET 
STORE IT 


8 X 8 FONT 
ROM 8 X 8 DOUBLE DOT 
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1LEF6 
1LEF6 
1LEF7 
1EF8 


1EF9 
1EFC 
1EFE 
1EFF 
1F00 
1F02 
1F04 
1F05 
1F07 
1F09 
1F09 
1F0D 
1FOF 
1F11 
1F11 
1F13 
1F15 
1F17 
1F19 
1F1B 
1F1B 
1F1ic 
1F1E 
1F20 
1F22 
1F25 
1F26 
1F28 
1F28 


1F29 


1F29 
1F2C 
1F2F 
1F33 
1F38 
1F3A 
1F3C 
1F3F 
1F3F 
1F41 
1F43 
1F46 


1F48 
1F4A 
1F4Cc 
1F4E 
1F50 


1F52 
1F56 
1F59 
1F5C 
1F5E 
1F61 
1F63 
1F66 
1F66 
1F67 
1F6B 
1F6C 
1F6F 
1F71 
1F73 
1F77 
1F78 
1F7C 
1F7E 
1F81 
1F84 
1F86 
1F8A 
1F8Cc 
1F8F 
1F92 
1F95 


1F98 
1F98 
1F9A 


1F9c 
1F9E 
1FA0 
1FA3 
1FA6 


1FA9 
1FAC 
1FBO 
1FB2 
1FB4 


1FB7 
1FB7 
1FB9 
1FBB 


1FBD 
1FcO 


1FC3 
1Fc5 
1FC7 


c2 4000 


OCFE R 

0485 R 

16 0463 R 
3E 0449 R 07 


015E 


co 
26 044A R 
EO 

0100 
044c 
OE96 
219E 


naw 


OE96 


pn RaW 


OCFE 
OE 0460 R 


5671 
5672 
5673 
5674 
5675 
5676 
5677 
5678 
5679 
5680 
5681 
5682 
5683 
5684 
5685 
5686 
5687 
5688 
5689 
5690 
5691 
5692 
5693 
5694 
5695 
5696 
5697 
5698 
5699 
5700 
5701 
5702 
5703 
5704 
5705 
5706 
5707 
5708 
5709 
5710 
5711 
5712 
5713 
5714 
5715 
5716 
5717 
5718 
5719 
5720 
5721 
5722 
5723 
5724 
5725 
5726 
5727 
5728 
5729 
5730 
5731 
5732 
5733 
5734 
5735 
5736 
5737 
5738 
5739 
5740 
5741 
5742 
5743 
5744 
5745 
5746 
5747 
5748 
5749 
5750 
5751 
5752 
5753 
5754 
5755 
5756 
5757 
5758 
5759 
5760 
5761 
5762 
5763 
5764 
5765 
5766 
5767 
5768 
5769 
5770 
5771 
5772 
5773 
5774 
5775 
5776 
5777 
5778 
5779 
5780 
5781 
5782 
5783 
5784 
5785 
5786 
5787 
5788 
5789 
5790 
5791 
5792 
5793 
5794 
5795 
5796 
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ENTRY 


POINTER TO TABLE 

COUNT OF CHARS 

CHAR COUNT OFFSET INTO MAP 2 
BYTES PER CHARACTER 

MAP 2 BLOCK TO LOAD 
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H4: 


H3: 


LD: 


LD_OVER: 


H11A: 


H11: 


ES, 0AQ00H 
DX, 0AO00H 
ES, DX 

Dx 

cx 

CL,5 

DX,CL 

cx 

BL, BL 

H3 


Dx, 04000H 


DI,AX 
DI,020H 
cx 
LD 


DS:ABSO 

DDS 

POINTS, AX 

DX, ADDR_6845 
CRT_MODE, 7 

H11A 

AH, C_UNDERLN_LOC 
OUT_DX 


BL, CRT_MODE 
AX, 350D 
BL, 3 

H11 
BRST_DET 
H11 

AX, 200D 


POINTS 
AX 

ROWS, AL 

AL 

AH, AH 

POINTS 

AX 

DX, ADDR_6845 

AH, C_VRT_DSP_END 
OUT_DX 

AL, ROWS 

AL 

BYTE PTR CRT_COLS 
AX,1 

AX, 256D 
CRT_LEN, AX 

PH_5 

V_RET 


CHARACTER GENERATOR ROUTINES 


AL, 010H 
AH11_ALPHA1 


poa—s= ALPHA MODE ACTIVITY HERE 


eos SET THE CHARACTER GENERATOR BLOCK SELECT 


AL, 03H 
H1 
CH_GEN 
SET_REGS 
PH_5 

DS: ABSO 
DDS 

CX, CURSOR_MODE 
AH, 1 

10H 
V_RET 


H2 
DH, 3 
DL, SEQ_ADDR 


AX,1 
OUT_DX 


AH, S_CGEN 
AL, BL 
OUT_DX 


FONT TABLE SEGMENT 
ADDRESSING TO TABLE 
SAVE REGISTER 

ADDRESSING TO MAP 2 


RECOVER REGISTER 

MULTIPLY BY 020H SINCE 
MAXIMUM BYTES PER 
CHARACTER IS 32D=020H 
RECOVER 

WHICH 16K BLOCK TO LOAD 
BLOCK ZERO 


; INCREMENT TO NEXT BLOCK 
; ANY MORE 
; DO ANOTHER 


BYTES PER CHARACTER 
ZERO 

OFFSET INTO MAP 
OFFSET INTO TABLE 
CHARACTER COUNT 


SAVE CHARACTER COUNT 
ONE ENTIRE CHARACTER 
AT A TIME 

ADJUST OFFSET 

NEXT CHARACTER POSITION 
RECOVER CHARACTER COUNT 
DO THE REST 


; SET LOW MEMORY SEGMENT 
; GET BYTES/CHARACTER 
; CRTC REGISTER 


, R14H 

; SET THE UNDERLINE LOC 
POINTS - 1 
RO9OH 


SET THE CHARACTER HEIGHT 
POINTS - 2 


CURSOR START 

CURSOR END 

ADJUST END 

SET C_TYPE BIOS CALL 
SET THE CURSOR 


GET THE CURRENT MODE 
MAX SCANS ON SCREEN 

640X200 ALPHA MODES 

MUST BE 350 


; SET FOR 200 


PREPARE TO DIVIDE 
MAX ROWS ON SCREEN 
ADJUST 

SAVE ROWS 

READJUST 

CLEAR 
ROWS*BYTES/CHAR 
ADJUST 

CRTC ADDRESS 

SCANS DISPLAYED 
SET IT 

GET CHARACTER ROWS 
ADJUST 
ROWS*COLUMNS, 

*2 FOR ALPHA MODE 
SPACE BETWEEN PAGES 
BYTES PER PAGE 
VIDEO ON 

RETURN TO CALLER 


; CHECK PARAMETER 
; NEXT STAGE 


; RANGE CHECK 
; NEXT STAGE 
; SET THE CHAR GEN 


; VIDEO ON 


SET THE DATA SEGMENT 
GET THE MODE 

SET C_TYPE 

EMULATE CORRECT CURSOR 
RETURN TO CALLER 


REGISTER 


; NOT IN RANGE 
; SEQUENCER 

; AH=S_RESET, AL=1 

; CHAR BLOCK REGISTER 


; GET THE VALUE 
; SET IT 
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1FCA 
1FCD 
1FDO 
1FDO 


1FD3 


1FD3 
1FD5 


1FD7 
1FD9 
1FDB 
1FDD 
1FDE 
1FDF 
1FE2 
1FE5 
1FE6 
1FE7 
1FE9 
1FEB 
1FED 
1FEF 
1FF1 
1FF4 
1FF6 
1FF8 
1FF8 
1FFA 


1FFD 


1FFD 
1FFF 
2001 
2003 


2005 
2007 
2009 
200A 
200E 
2012 
2013 
2013 
2016 


2016 


2017 
2019 
201B 
201C 
201E 
2020 
2022 
2024 
2025 
2026 
2028 
202A 
202D 
2030 
2032 
2032 
2035 
2038 
2038 
2039 
203D 
2041 


2042 
2045 
2049 
204B 
204E 
2050 
2052 
2054 
2057 
2057 
2059 
205B 
205D 
205D 
205F 
205F 
2061 
2064 


2067 
2067 


206B 


206B 
206D 
206F 
206F 
2072 
2072 
2076 
207A 
207D 
207F 
2082 


2084 
2085 


2087 
2089 


B8 
E8 


0003 
op15 R 


Fc 01 


D2 
DA 


2E 007C R 
06 OO7E R 


219E R 


06 010E R 


cs 
0484 R 
219E R 


OE 19 2B 


D2 
DA 


5797 
5798 
5799 
5800 
5801 
5802 
5803 
5804 
5805 
5806 
5807 
5808 
5809 
5810 
5811 
5812 
5813 
5814 
5815 
5816 
5817 
5818 
5819 
5820 
5821 
5822 
5823 
5824 
5825 
5826 
5827 
5828 
5829 
5830 
5831 
5832 
5833 
5834 
5835 
5836 
5837 
5838 
5839 
5840 
5841 
5842 
5843 
5844 
5845 
5846 
5847 
5848 
5849 
5850 
5851 
5852 
5853 
5854 
5855 
5856 
5857 
5858 
5859 
5860 
5861 
5862 
5863 
5864 
5865 
5866 
5867 
5868 
5869 
5870 
5871 
5872 
5873 
5874 
5875 
5876 
5877 
5878 
5879 
5880 
5881 
5882 
5883 
5884 
5885 
5886 
5887 
5888 
5889 
5890 
5891 
5892 
5893 
5894 
5895 
5896 
5897 
5898 
5899 
5900 
5901 
5902 
5903 
5904 
5905 
5906 
5907 
5908 
5909 
5910 
5911 
5912 
5913 
5914 
5915 
5916 
5917 
5918 
5919 
5920 
5921 
5922 
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++ 


++ 


++ 


MOV 

CALL 
H2: 

JMP 


AH11_ALPHAL: 
ASSUME 
CMP 
JAE 


AX, 3 ; 
OUT_DXx 


V_RET ; 
DS:ABSO 


AL, 020H 
AH11_GRAPHICS 


peas ALPHA MODE ACTIVITY HERE 


SUB 


H13: 


poco GRAPHICS 
AH11_GRAPHICS: 
ASSUME 
CMP 
JAE 
SUB 
oNZ 


il 
Nb 


y REERERREE 


fe 


MODE ACTIVITY HERE 


DS: ABSO 
AL, 030H 
AH11_INFORM 
AL, 020H 

F10 
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AH=S_RESET, AL=3 


RETURN TO CALLER 


ADJUST TOO -N 
RANGE CHECK 
INVALID CALL 
SAVE 


LOAD THE CHAR GEN 


RESTORE 
CALLING PARAMETER 
USER MODE 


DO NOT SET BYTES/CHAR 
8 X 8 FONT 

IS THE CALL FOR MONOC 
NO, LEAVE IT AT 8 
MONOC SET 


CLEAR UPPER BYTE 
CONTINUE 


; COMPATIBILITY, UPPER HALF GRAPHICS CHARACTER SET 


ASSUME DS:ABSO 
SRLOAD DS,0 
SUB Dx, DX 
MOV DS,DX 
CLI 
MOV WORD PTR EXT_PTR ,BP 
MOV WORD PTR EXT_PTR+2,ES 
sTI 
F1l: 
MP V_RET 
F10: 
ASSUME DS:ABSO 
PUSH Dx 
SRLOAD DS,0 
SUB Dx, DX 
MOV DS,DX 
POP Dx 
CMP AL, 03H ; 
JA Fill 
DEC AL 
JZ F19 
PUSH cs 
POP ES 
DEC AL 
JNZ F13 
MOV cx, 14D 
MOV BP,OFFSET CGMN ; 
JMP SHORT F19 
F13: 
MOV cx, 8 
MOV BP,OFFSET CGDDOT ; 
F19: 
CLI 
MOV WORD PTR GRX_SET , BP 
MOV WORD PTR GRX_SET + 2, ES 
sTI 
ASSUME DS:ABSO 
CALL DDS 
MOV POINTS, CX 
MOV AL, BL 
MOV BX,OFFSET RT 
OR AL, AL 
INZ DR_3 
MOV AL, DL 
MP DR_1 
DR_3 
CMP AL,3 
JBE DR_2 
MOV AL,2 
DR_2: 
XLAT CS:RT 
DR_1: 
DEC AL 
MOV ROWS, AL 
MP V_RET 
RT LABEL BYTE 
DB 00D, 14D, 25D, 43D 


aS INFORMATION RETURN DONE HERE 


AH11_INFORM: 
ASSUME 


FS: 


F6: 


DS: ABSO 
AL, 030H 
F6 


V_RET 


CX, POINTS 
DL, ROWS 


RANGE CHECK 


ROM 8 X 14 CHARACTER SET 


ROM 8 X 8 DOUBLE DOT 
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208A 
208C 
208E 
2092 
2095 
2095 
2099 


209C 


209C 
209F 
20A1 
20A3 
20A5 
20A9 
20AC 
20AD 


20AE 
20AE 
20AF 
20B0 
20B1 
20B2 
20B3 
20B4 
20B5 
20B6 


20B7 
20B7 
20B9 
20BB 
20BD 


20BF 


20BF 
20C2 
20C4 
20C6 
20C9 
20CB 
20CE 


20CE 
20D0 
20D2 
20D3 
20D9 
20DD 
20DE 
20E1 
20E1 
20E5 
20E8 


20EA 
20ED 
20EF 
20F1 
20F3 


20F5 
20F9 
20FB 
20FE 
2100 
2102 
2104 
2106 


2109 
210A 
210B 
210C 
210D 
210E 
210F 
2110 
2111 
2112 
2112 
2115 
2115 
2115 


2118 
2118 
211A 
211c 
211E 
211F 
2121 
2123 
2125 
2129 
212A 


212B 
212c 
212F 
2131 
2132 
2132 
2133 
2134 
2135 
2137 
213B 
213c 
213E 
2140 
2142 
2144 


OA 
75 
c4 
EB 


c4 
EB 


EF 02 

DF 

FF 

E3 

C3 20B7 R 
8B 2F 


OOOO E 
QOOO E 
OOOO E 
OOOO E 


06 0014 R 21A7 R 
OE 0016 R 


219E R 


3E 0487 R 
E7 02 


OE 0488 R 


El OF 


DF 
FF 
E3 
B7 0450 R 


0200 


EO 
8A 46 00 
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OR BH, BH 

JNZ FQ 

LES BP, EXT_PTR 

JMP INFORM_OUT 
F9: 

LES BP, GRX_SET 

JMP INFORM_OUT 
i-c- HANDLE BH = 2 THRU BH = 
FT 

ASSUME DS:ABSO 

SUB BH,2 

MOV BL, BH 

SUB BH, BH 

SAL Bx,1 

ADD BX,OFFSET TBL_5 

MOV BP, CS: [BX] 

PUSH cs 

POP ES 
INFORM_OUT: 

POP DI 

POP sI 

POP BX 

POP AX 

POP AX 

POP DS 

POP AX 

POP AX 

IRET 


,—--== TABLE OF CHARACTER GENERATOR OFFSETS 


TBL_5 LABEL WORD 


DW OFFSET CGMN 

DW OFFSET CGDDOT 
DW OFFSET INT_1F_1 
DW OFFSET CGMN_FDG 
SUBTTL 


joccc ALTERNATE SELECT 
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5 HERE RETURN ROM TABLE POINTERS 


DISCARD SAVED CX 
DISCARD SAVED DX 


DISCARD SAVED ES 
DISCARD SAVED BP 


AH12 
ASSUME DS:ABSO 
CMP BL,010H ; RETURN ACTIVE CALL 
JB ACT_1 
JE ACT_3 
CMP BL, 020H ; ALTERNATE PRINT SCREEN 
JE ACT_2 
JMP V_RET ; INVALID CALL 
ACT_2: ; NEW PRINT SCREEN 
SRLOAD DS,0 
SUB Dx, DX 
MOV DS,DX 
CLI 
MOV WORD PTR INT5_PTR,OFFSET PRINT_SCREEN 
MOV WORD PTR INT5_PTR+2,CS 
sTI 
MP V_RET 
ACT_3: 
MOV BH, INFO ; LOOKING FOR MONOC BIT 
AND BH, 2 ; ISOLATE 
SHR BH,1 ; ADJUST 
MOV AL, INFO ; LOOKING FOR MEMORY 
AND AL, 01100000B ; MEMORY BITS 
MOV CcL,5 ; SHIFT COUNT 
SHR AL,CL ; ADJUST MEM VALUE 
MOV BL,AL ; RETURN REGISTER 
MOV CL, INFO_3 ; FEATURE/SWITCH 
MOV CH,CL ; DUPLICATE IN CH 
AND CL, OFH ; MASK OFF SWITCH VALUE 
SHR CH,1 ; MOVE FEATURE VALUE 
SHR CH,1 
SHR CH,1 
SHR CH,1 
AND CH, OFH ; MASK IT 
POP DI 
POP sI 
POP Dx ; DISCARD BX 
POP DX ; DISCARD CX 
POP Dx 
POP DS 
POP ES 
POP BP 
IRET 
AH12_X: 
JMP V_RET ; RETURN TO CALLER 
ACT_1: 
STR_OUTZ: 
JMP V_RET ; RETURN TO CALLER 
i-c- WRITE STRING 
AH13 
CMP AL,004 ; RANGE CHECK 
JAE STR_OUTZ ; INVALID PARAMETER 
JCXZ STR_OUTZ 
PUSH BX ; SAVE REGISTER 
MOV BL, BH ; GET PAGE TO LOW BYTE 
SUB BH, BH 
SAL Bx,1 ; *2 FOR WORD OFFSET 
MOV SI, [BX + OFFSET CURSOR_POSN] ; GET CURSOR POSITION 
POP BX ; RESTORE 
PUSH sI ; CURRENT VALUE ON STACK 
PUSH AX 
MOV AX,0200H ; SET THE CURSOR POSITION 
INT 10H 
POP AX 
STR_1: 
PUSH cx 


XCHG AH, AL 
MOV AL, ES: [BP] 
INC BP 

CMP AL, ODH 

JE STR_CR_LF 
CMP AL, OAH 

JE STR_CR_LF 
CMP AL, 08H 


GET THE CHAR TO WRITE 


CARRIAGE RETURN 


LINE FEED 


BACKSPACE 
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2146 
2148 
214A 
214C 
214F 
2152 
2154 
2158 
2159 
2159 
215B 
215D 
215F 
2163 
2165 
2169 
216B 
216E 
2170 
2172 
2172 
2174 
2176 
2176 
2179 
2178 
217D 
217D 
217F 
2181 
2183 
2185 
2187 
218B 
218B 
218C 
218D 
218E 


2190 


2191 
2193 
2195 
2197 
2199 
219C 
219E 


219E 
219E 
219F 
21A0 
21A1 
21A2 
21A3 
21A4 
21A5 
21A6 
21A7 


21A7 


21A7 
21A7 
21A8 
21A9 
21AA 
21AB 
21AC 
21AD 
21B0 
21B5 
21B7 
21BC 
21BE 


21C0 
21c2 
21C6 
21c8 
21CB 
21cCc 
21CE 
21D0 
21D1 
21D2 


21D4 
21D4 
21D6 
21D8 
21DA 
21DC 


B4 
cD 
B4 
cD 
oA 


16 044A R 


36 0484 R 


97 0450 R 


OCFE R 
3E 0500 R 01 


06 0500 R 01 


cc 
2E 0484 R 


6049 
6050 
6051 
6052 
6053 
6054 
6055 
6056 
6057 
6058 
6059 
6060 
6061 
6062 
6063 
6064 
6065 
6066 
6067 
6068 
6069 
6070 
6071 
6072 
6073 
6074 
6075 
6076 
6077 
6078 
6079 
6080 
6081 
6082 
6083 
6084 
6085 
6086 
6087 
6088 
6089 
6090 
6091 
6092 
6093 
6094 
6095 
6096 
6097 
6098 
6099 
6100 
6101 
6102 
6103 
6104 
6105 
6106 
6107 
6108 
6109 
6110 
6111 
6112 
6113 
6114 
6115 
6116 
6117 
6118 
6119 
6120 
6121 
6122 
6123 
6124 
6125 
6126 
6127 
6128 
6129 
6130 
6131 
6132 
6133 
6134 
6135 
6136 
6137 
6138 
6139 
6140 
6141 
6142 
6143 
6144 
6145 
6146 
6147 
6148 
6149 
6150 
6151 
6152 
6153 
6154 
6155 
6156 
6157 
6158 
6159 
6160 
6161 
6162 
6163 
6164 
6165 
6166 
6167 
6168 
6169 
6170 
6171 
6172 
6173 
6174 


IBM Enhanced Graphics Adapter 


aaaaaaaaaaaaaaNaaNaaNaNANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANANAANANANANA 
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JE STR_CR_LF 
CMP AL, 07H ; BELL 
JE STR_CR_LF 
MOV cx,1 ; COUNT OF CHARACTERS 
CMP AH,2 ; CHECK WHERE ATTR IS 
JB DO_STR ; NOT IN THE STRING 
MOV BL, ES: [BP] ; GET THE ATTRIBUTE 
INC BP ; NEXT ITEM IN STRING 
DO_STR: 
MOV AH, 09H ; WRITE THE CHAR/ATTR 
INT 10H 
INC DL ; NEXT CURSOR POSITION 
CMP DL, BYTE PTR CRT_COLS ; COLUMN OVERFLOW 
JB STR_2 ; NOT YET 
CMP DH, ROWS 
INE STR_3 
MOV AX, OEOAH 
INT 10H 
DEC DH 
STR_3: 
INC DH ; NEXT ROW 
SUB DL, DL ; COLUMN ZERO 
STR_2: 
MOV AX, 0200H ; SET THE CURSOR 
INT 10H 
MP SHORT STR_4 
STR_CR_LF: 
MOV AH, OEH 
INT 10H 
MOV BL, BH ; GET PAGE TO LOW BYTE 
SUB BH, BH 
SAL BX,1 ; *2 FOR WORD OFFSET 
MOV DX, [BX + OFFSET CURSOR_POSN] ; GET CURSOR POSITION 
STR_4: 
POP AX 
POP BX 
POP cx 
LOOP STR_1 
POP DX ; RECOVER CURSOR POSITION 
; FROM PUSH SI ABOVE 
CMP AL,1 
JE STR_OUT 
CMP AL,3 
JE STR_OUT 
MOV AX, 0200H ; SET CURSOR POSITION 
INT 10H 
STR_OUT: 
; ALLOW FALL THROUGH 
V_RET PROC NEAR ; VIDEO BIOS RETURN 
POP DI 
POP SI 
POP BX 
POP cx 
POP DX 
POP Ds 
POP ES 
POP BP 
IRET 
V_RET  ENDP 
COMBO_VIDEO ENDP 
INCLUDE VPRSC. INC 
SUBTTL VPRSC.INC 
PAGE 


THIS LOGIC WILL BE INVOKED BY INTERRUPT 05H TO PRINT THE 
SCREEN. THE CURSOR POSITION AT THE TIME THIS ROUTINE IS INVOKED 


WILL BE SAVED AND RESTORED UPON 
INTENDED TO RUN WITH INTERRUPTS 
’PRINT SCREEN’ KEY IS DEPRESSED 


COMPLETION. THE ROUTINE IS 
ENABLED. IF A SUBSEQUENT 
DURING THE TIME THIS ROUTINE 


ADDRESS 50:0 CONTAINS THE STATUS OF THE PRINT SCREEN: 


EITHER PRINT SCREEN HAS NOT BEEN CALLED 


OR UPON RETURN FROM A CALL THIS INDICATES 


7 
; 
7 
; 
7 
; 
7 
; IS PRINTING IT WILL BE IGNORED. 
7 
; 
7 
7 
7 
; 
7 


[AX] AND THE PAGE IF APPLICABLE 


7 
; AT THIS POINT WE KNOW THE COLUMNS/LINE ARE IN 
; 
7 


HAS DS,AX,BX,CX,DX PUSHED. [AL] 
i 

MOV CL, AH 

MOV CH, ROWS 

INC CH 

CALL CRLF 

PUSH cx 

MOV AH,3 

INT 10H 

POP cx 

PUSH DX 

XOR DX, DX 


IN PROGRESS 


; MUST RUN WITH INTS ENABLED 
; MUST USE 50:0 FOR DATA 
; AREA STORAGE 


; USE THIS LATER FOR CURSOR LIMITS 
; WILL HOLD CURRENT CURSOR POS 


; SEE IF PRINT ALREADY IN PROGRESS 
; JUMP IF PRINT IN PROGRESS 

; INDICATE PRINT NOW IN PROGRESS 

; WILL REQUEST THE CURRENT MODE 
; 
7 
; 


50:0 =0 
A SUCCESSFUL OPERATION. 
= PRINT SCREEN IS 
255 ERROR ENCOUNTERED DURING PRINTING 
i 
ASSUME CS:CODE,DS:ABSO 
PRINT_SCREEN PROC FAR 
STI 
PUSH DS 
PUSH AX 
PUSH BX 
PUSH cx 
PUSH DX 
CALL DDS 
CMP STATUS_BYTE, 1 
oz EXIT 
MOV STATUS_BYTE, 1 
MOV AH,15 
INT 10H 


[AL]=MODE (NOT USED) 
[AH]=NUMBER COLUMNS/LINE 





Is IN [BH]. THE STACK 

HAS VIDEO MODE 

WILL MAKE USE OF [CX] REG TO 
CONTROL ROW & COLUMNS 

ADJUST 

CAR RETURN LINE FEED ROUTINE 
SAVE SCREEN BOUNDS 

WILL NOW READ THE CURSOR, 
AND PRESERVE THE POSITION 
RECALL SCREEN BOUNDS 

RECALL [BH]=VISUAL PAGE 

SET CURSOR POSITION TO (0,0) 


7 
7 THE LOOP FROM PRI10 TO THE INSTRUCTION PRIOR TO PRI20 
; IS THE LOOP TO READ EACH CURSOR POSITION FROM THE 
; 


SCREEN AND PRINT. 


MOV AH,2 
INT 10H 
MOV AH, 8 
INT 10H 
OR AL, AL 


TO INDICATE CURSOR SET REQUEST 
NEW CURSOR POS ESTABLISHED 

TO INDICATE READ CHARACTER 
CHARACTER NOW IN [AL] 

SEE IF VALID CHAR 


50 IBM Enhanced Graphics Adapter August 2, 1984 


21DE 75 02 6175 c INZ PRI1 ; JUMP IF VALID CHAR 
21E0 BO 20 6176 c MOV AL,’ * ; MAKE A BLANK 
21E2 6177 C PRIIS: 
21E2 52 6178 c PUSH Dx ; SAVE CURSOR POSITION 
21E3 33 D2 6179 c XOR DX, DX ; INDICATE PRINTER 1 
21E5 32 E4 6180 c XOR AH, AH ; TO INDICATE PRINT CHAR IN [AL] 
21E7 cD 17 6181 c INT 17H ; PRINT THE CHARACTER 
21E9 5A 6182 c POP Dx ; RECALL CURSOR POSITION 
21EA F6 C4 29 6183 c TEST AH, 029H ; TEST FOR PRINTER ERROR 
21ED 75 21 6184 c INZ ERR10 ; JUMP IF ERROR DETECTED 
21EF FE C2 6185 c INC DL ; ADVANCE TO NEXT COLUMN 
21F1 3A CA 6186 c CMP cL, DL ; SEE IF AT END OF LINE 
21F3 75 DF 6187 c JNZ PRI10 ; IF NOT PROCEED 
21F5 32 D2 6188 c XOR DL, DL ; BACK TO COLUMN 0 
21F7 8A E2 6189 c MOV AH, DL ; [AH]=0 
21F9 52 6190 c PUSH Dx ; SAVE NEW CURSOR POSITION 
21FA E8 2220 R 6191 c CALL CRLF ; LINE FEED CARRIAGE RETURN 
21FD 5A 6192 c POP DX ; RECALL CURSOR POSITION 
21FE FE C6 6193 c INC DH ; ADVANCE TO NEXT LINE 
2200 3A EE 6194 c CMP CH, DH ; FINISHED? 
2202 75 DO 6195 ¢ JNZ PRI10 ; IF NOT CONTINUE 
6196 c 
2204 5A 6197 c POP Dx ; RECALL CURSOR POSITION 
2205 B4 02 6198 c MOV AH, 2 ; TO INDICATE CURSOR SET REQUEST 
2207 cD 10 6199 c INT 10H ; CURSOR POSITION RESTORED 
2209 C6 06 0500 R 00 6200 c MOV STATUS_BYTE, 0 ; INDICATE FINISHED 
220E EB OA 6201 c oMP SHORT EXIT ; EXIT THE ROUTINE 
2210 6202 C ERRIO: 
2210 5A 6203 c POP Dx ; GET CURSOR POSITION 
2211 B4 02 6204 c MOV AH, 2 ; TO REQUEST CURSOR SET 
2213 cD 10 6205 c INT 10H ; CURSOR POSITION RESTORED 
2215 C6 06 0500 R FF 6206 c MOV STATUS_BYTE, OFFH ; INDICATE ERROR 
221A 6207 Cc EXIT: 
221A 5A 6208 c POP Dx ; RESTORE ALL THE REGISTERS USED 
221B 59 6209 c POP cx 
221c 5B 6210 c POP BX 
221D 58 6211 c POP AX 
221E 1F 6212 c POP DS 
221F CF 6213 c IRET 
2220 6214 C PRINT_SCREEN ENDP 
6215 c 
6216 C jo CARRIAGE RETURN, LINE FEED SUBROUTINE 
6217 c 
2220 6218 Cc CRLF PROC NEAR 
2220 33 D2 6219 fe) XOR DX, DX ; PRINTER 0 
2222 32 E4 6220 c XOR AH, AH ; WILL NOW SEND INITIAL CR, LF 
6221 c ; TO PRINTER 
2224 BO OD 6222 c MOV AL, ODH ; CR 
2226 cD 17 6223 ic INT 17H ; SEND THE LINE FEED 
2228 32 E4 6224 c XOR AH, AH ; NOW FOR THE CR 
222A BO OA 6225 c MOV AL, OAH ; LF 
222c cD 17 6226 c INT 17H ; SEND THE CARRIAGE RETURN 
222E C3 6227 c RET 
222F 6228 C CRLF ENDP 
6229 c 
6230 c SUBTTL 
6231 
222F 6232 CODE ENDS 


oO 
Nv 
w 
w 
2] 
8 


1 PAGE, 120 
2 SUBTTL MONOCHROME CHARACTER GENERATOR 
0000 3 CODE SEGMENT PUBLIC 
4 PUBLIC CGMN 
0000 5 CGMN LABEL BYTE 
6 
0000 00 00 00 00 00 00 7 DB 000H, 000H, 000H, 000H, 000H, 000H, 000H, 000H ; TOP_HALF_00 
00 00 8 
0008 00 00 00 00 00 00 9 DB 000H, 000H, 000H, 000H, 000H, 000H ; BOTTOM_HALF 00 
000E 00 00 7E 81 AS 81 10 DB 000H, 000H, 07EH, 081H, OA5H, 081H,081H,OBDH ; TH_01 
81 BD 11 
0016 99 81 7E 00 00 00 12 DB 099H, 081H, 07EH, 000H, 000H, 000H ; BT_O1 
001C 00 00 7E FF DB FF 13 DB 000H, 000H, 07EH, OFFH, ODBH, OFFH, OFFH,0C3H ; TH_02 
FF C3 14 
0024 E7 FF 7E 00 00 00 15 DB 0E7H, OFFH, 07EH, 000H, 000H, 000H ; BT_02 
002A 00 00 00 6C FE FE 16 DB 000H, 000H, 000H, 06CH, OFEH, OFEH, OFEH, OFEH ; TH_03 
FE FE 17 
0032 7C 38 10 00 00 00 18 DB 07CH, 038H, 010H, 000H, 000H, 000H ; BT_03 
0038 00 00 00 10 38 7c 19 DB 000H, 000H, 000H, 010H, 038H, 07CH, OFEH,07CH ; TH_04 
FE 7C 20 
0040 38 10 00 00 00 00 21 DB 038H, 010H, 000H, 000H, 000H, 000H ; BT_04 
0046 00 00 18 3c 3C E7 22 DB 000H, 000H, 018H, 03CH, 03CH, 0E7H, OF7H, OE7H ; TH_O5 
E7 E7 23 
004E 18 18 3C 00 00 00 24 DB 018H, 018H, 03CH, 000H, 000H, 000H ; BT_05 
0054 00 00 18 3C 7E FF 25 DB 000H, 000H, 018H, 03CH, 07EH, OFFH, OFFH,07EH ; TH_06 
FF 7E 26 
005c 18 18 3c 00 00 00 27 DB 018H, 018H, 03CH, 000H, 000H, 000H ; BT_06 
0062 00 00 00 00 00 18 28 DB 000H, 000H, 000H, 000H, 000H, 018H, 03CH,03CH ; TH_O7 
3c 3c 29 
006A 18 00 00 00 00 00 30 DB 018H, 000H, 000H, 000H, 000H, 000H ; BT_07 
0070 FF FF FF FF FF E7 31 DB OFFH, OFFH, OFFH, OFFH, OFFH, 0E7H, 0C3H,0C3H ; TH_08 
c3 C3 32 
0078 E7 FF FF FF FF FF 33 DB 0E7H, OFFH, OFFH, OFFH, OFFH, OFFH ; BT_o8 
007E 00 00 00 00 3c 66 34 DB 000H, 000H, 000H, 000H, 03CH, 066H, 042H,042H ; TH_09 
42 42 35 
0086 66 3C 00 00 00 00 36 DB 066H, 03CH, 000H, 000H, 000H, 000H ; BT_09 
008C FF FF FF FF C3 99 37 DB OFFH, OFFH, OFFH, OFFH, 0C3H,099H, OBDH,OBDH ; TH_OA 
BD BD 38 
0094 99 C3 FF FF FF FF 39 DB 099H, 0C3H, OFFH, OFFH, OFFH, OFFH ; BT_OA 
009A 00 00 1E OF 1A 32 40 DB 000H, 000H, 01EH, OOFH, 01AH, 032H,078H,OCCH ; TH_OB 
78 cc 41 
00A2 CC CC 78 00 00 00 42 DB OCCH, OCCH, 078H, 000H, 000H, 000H ; BT_OB 
OOA8 00 00 3C 66 66 66 43 DB 000H, 000H, 03CH, 066H, 066H, 066H, 03CH,018H ; TH_OC 
3c 18 44 
00B0 7E 18 18 00 00 00 45 DB 07EH, 018H, 018H, 000H, 000H, 000H ; BT_oc 
00B6 00 00 3F 33 3F 30 46 DB 000H, 000H, 03FH, 033H, 03FH, 030H,030H,030H ; TH_OD 
30 30 47 
OOBE 70 FO EO 00 00 00 48 DB 070H, OFOH, 0EOH, 000H, 000H, 000H ; BT_oD 
00Cc4 00 00 7F 63 7F 63 49 DB 000H, 000H, 07FH, 063H, 07FH, 063H, 063H,063H ; TH_OE 
63 63 50 
00cc 67 E7 E6 CO 00 00 51 DB 067H, OE7H, 0E6H, 0COH, 000H, 000H ; BT_OE 
00D2 00 00 18 18 DB 3c 52 DB 000H, 000H, 018H, 018H, ODBH, 03CH, OF7H,03CH ; TH_OF 
E7 3c 53 
OODA DB 18 18 00 00 00 54 DB ODBH, 018H, 018H, 000H, 000H, 000H ; BTLOF 
55 
00EO 00 00 80 CO EO F8 56 DB 000H, 000H, 080H, 0COH, OKOH, OF 8H, OFEH, OF8H ; TH_10 
FE F8 57 
00E8 EO CO 80 00 00 00 58 DB OEOH, OCOH, 080H, 000H, 000H, 000H ; BT_10 
OOEE 00 00 02 06 OF 3E 59 DB 000H, 000H, 002H, 006H, OOEH, 03EH, OFEH,03EH ; TH_11 
FE 3E 60 
OOF6 OE 06 02 00 00 00 61 DB 0OEH, 006H, 002H, 000H, 000H, 000H ; BTL11 
OOFC 00 00 18 3C 7E 18 62 DB 000H, 000H, 018H, 03CH, 07EH, 018H,018H,018H ; TH_12 
18 18 63 
0104 7E 3C 18 00 00 00 64 DB 07EH, 03CH, 018H, 000H, 000H, 000H ; BT_12 


010A 00 00 66 66 66 66 65 DB 000H, 000H, 066H, 066H, 066H, 066H, 066H, 066H ; TH-13 
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0112 
0118 


0120 
0126 


012E 
0134 


013C 
0142 


014A 
0150 


0158 
015E 


0166 
016c 


0174 
O17A 


0182 
0188 


0190 
0196 


019E 
O1A4 


o1ac 
01B2 


01BA 
o1co 


o1cs 
01CE 


01D6 
o1pc 


01E4 
O1EA 


o1F2 
o1Fs 


0200 
0206 


020E 
0214 


o21c 
0222 


022A 
0230 


0238 
023E 


0246 
024Cc 


0254 
025A 


0262 
0268 


0270 
0276 


027E 
0284 


028C 
0292 


029A 
02A0 


02A8 
O2AE 


02B6 
02BC 


02c4 
02CA 


02D2 
02D8 


02E0 
O2E6 


O2EE 
o2F4 


02FC 
0302 


030A 
0310 


0318 
031E 


0326 
032c 


0334 
033A 


0342 
0348 
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DB 
DB 


DB 
DB 


DB 
DB 


DB 
DB 


DB 
DB 


DB 
DB 


DB 
DB 


DB 
DB 


DB 
DB 


DB 
DB 


DB 
DB 


000H, 066H, 066H, 000H, 000H, 000H 
000H, 000H, 07FH, ODBH, ODBH, ODBH, 07BH, 01BH 


01BH, 01BH, 01BH, 000H, 000H, 000H 
000H, 07CH, 0C6H, 060H, 038H, 06CH, OC6H, OC6H 


06CH, 038H, 00CH, 0C6H, 07CH, 000H 
000H, 000H, 000H, 000H, 000H, 000H, 000H, 000H 


OFEH, OFEH, OFEH, 000H, 000H, 000H 
000H, 000H, 018H, 03CH, 07EH, 018H, 018H, 018H 


07EH, 03CH, 018H, 07EH, 000H, 000H 
000H, 000H, 018H, 03CH, 07EH, 018H, 018H, 018H 


018H, 018H, 018H, 000H, 000H, 000H 
000H, 000H, 018H, 018H, 018H, 018H, 018H, 018H 


07EH, 03CH, 018H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 018H, 00CH, OFEH, 00CH 


018H, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 030H, 060H, OFEH, 060H 


030H, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, 0COH, 0COH, 0COH 


OFEH, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 028H, 06CH, OFEH, 06CH 


028H, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 010H, 038H, 038H, 07CH, 07CH 


OFEH, OFEH, 000H, 000H, 000H, 000H 
000H, 000H, 000H, OFEH, OFEH, 07CH, 07CH, 038H 


038H, 010H, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, 000H, 000H, 000H 


000H, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 018H, 03CH, 03CH, 03CH, 018H, 018H 


000H, 018H, 018H, 000H, 000H, 000H 
000H, 066H, 066H, 066H, 024H, 000H, 000H, 000H 


000H, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 06CH, 06CH, OFEH, 06CH, 06CH, 06CH 


OFEH, 06CH, 06CH, 000H, 000H, 000H 
018H, 018H, 07CH, OC6H, 0C2H, 0COH, 07CH, 006H 


086H, OC6H, 07CH, 018H, 018H, 000H 
000H, 000H, 000H, 000H, 0C2H, 0C6H, 00CH, 018H 


030H, 066H, 0C6H, 000H, 000H, 000H 
000H, 000H, 038H, 06CH, 06CH, 038H, 076H, ODCH 


OCCH, OCCH, 076H, 000H, 000H, 000H 
000H, 030H, 030H, 030H, 060H, 000H, 000H, 000H 


000H, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 00CH, 018H, 030H, 030H, 030H, 030H 


030H, 018H, 00CH, 000H, 000H, 000H 
000H, 000H, 030H, 018H, 00CH, 00CH, 00CH, 00CH 


00CH, 018H, 030H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 066H, 03CH, OFFH, 03CH 


066H, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 018H, 018H, 07EH, 018H 


018H, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, 000H, 000H, 000H 


018H, 018H, 018H, 030H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, 000H, OFEH, 000H 


000H, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, 000H, 000H, 000H 


000H, 018H, 018H, 000H, 000H, 000H 
000H, 000H, 002H, 006H, 00CH, 018H, 030H, 060H 


0COH, 080H, 000H, 000H, 000H, 000H 
000H, 000H, 07CH, 0C6H, OCEH, ODEH, OF 6H, OE6H 


OC6H, OC6H, 07CH, 000H, 000H, 000H 
000H, 000H, 018H, 038H, 078H, 018H, 018H, 018H 


018H, 018H, 07EH, 000H, 000H, 000H 
000H, 000H, 07CH, OC6H, 006H, 00CH, 018H, 030H 


060H, OC6H, OFEH, 000H, 000H, 000H 
000H, 000H, 07CH, 0C6H, 006H, 006H, 03CH, 006H 


006H, OC6H, 07CH, 000H, 000H, 000H 
000H, 000H, 00CH, 01CH, 03CH, 06CH, OCCH, OFEH 


00CH, 00CH, 01EH, 000H, 000H, 000H 
000H, 000H, OFEH, 0COH, OCOH, 0COH, OFCH, 006H 


006H, OC6H, 07CH, 000H, 000H, 000H 
000H, 000H, 038H, 060H, OCOH, 0COH, OF CH, 0C6H 


OC6H, OC6H, 07CH, 000H, 000H, 000H 
000H, 000H, OFEH, 0C6H, 006H, 00CH, 018H, 030H 


030H, 030H, 030H, 000H, 000H, 000H 
000H, 000H, 07CH, 0C6H, OC6H, 0C6H, 07CH, OC6H 


OC6H, OC6H, 07CH, 000H, 000H, 000H 
000H, 000H, 07CH, 0C6H, OC6H, 0C6H, 07EH, 006H 


006H, 00CH, 078H, 000H, 000H, 000H 
000H, 000H, 000H, 018H, 018H, 000H, 000H, 000H 


018H, 018H, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 018H, 018H, 000H, 000H, 000H 


018H, 018H, 030H, 000H, 000H, 000H 
000H, 000H, 006H, 00CH, 018H, 030H, 060H, 030H 
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BT_13 
TH_14 


BT_14 
TH_15 


BT_15 
TH_16 


BT_16 
TH_17 


BT_17 
TH_18 


BT_18 
TH_19 


BT_19 
TH_1A 


BT_1A 
TH_1B 


BT_1B 
TH_1C 


BT_1c 
TH_1D 


BT_1D 
TH_1E 


BT_1E 
TH_1F 


BT_1F 
TH_20 


BT_20 
TH_21 


BT_21 
TH_22 


BT_22 
TH_23 


BT_23 
TH_24 


BT_24 
TH_25 


BT_25 
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BT_26 
TH_27 


BT_27 
TH_28 


BT_28 
TH_29 


BT_29 
TH_2A 


BT_2A 
TH_2B 


BT_2B 
TH_2C 


BT_2c 
TH_2D 


BT_2D 
TH_2E 


BT_2E 
TH_2F 


BT_2F 
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BT_35 
TH_36 


BT_36 
TH_37 
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BT_3A 
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BT_3B 
TH_3C 
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0350 18 OC 06 00 00 00 192 DB 018H, 00CH, 006H, 000H, 000H, 000H ; BT_3c < 
0356 00 00 00 00 00 7E 193 DB 000H, 000H, 000H, 000H, 000H, 07EH, 000H,000H ; TH_3D = 
00 00 194 
035E 7E 00 00 00 00 00 195 DB 07EH, 000H, 000H, 000H, 000H, 000H ; BT_3D = 
0364 00 00 60 30 18 Oc 196 DB 000H, 000H, 060H, 030H, 018H, 00CH, 006H, OOCH ; TH_3E > 
06 oc 197 
036C 18 30 60 00 00 00 198 DB 018H, 030H, 060H, 000H, 000H, 000H ; BT_3E > 
0372 00 00 7C Cé C6 OC 199 DB 000H, 000H, 07CH, OC6H, OC6H, 00CH, 018H,018H ; TH_3F ? 
18 18 200 
037A 00 18 18 00 00 00 201 DB 000H, 018H, 018H, 000H, 000H, 000H ; BI_3F ? 
202 
0380 00 00 7C C6 C6 DE 203 DB 000H, 000H, 07CH, OC6H, OC6H, ODEH, ODEH, ODEH ; TH_40 @ 
DE DE 204 
0388 DC CO 7C 00 00 00 205 DB ODCH, OCOH, 07CH, 000H, 000H, 000H ; BT_40 @ 
038E 00 00 10 38 6C C6 206 DB 000H, 000H, 010H, 038H, 06CH, OC6H, OC6H, OFEH ; TH_41 A 
C6 FE 207 
0396 C6 C6 C6 00 00 00 208 DB OC6H, OC6H, 0C6H, 000H, 000H, 000H ; BILALA 
039C 00 00 FC 66 66 66 209 DB 000H, 000H, OFCH, 066H, 066H, 066H, 07CH, 066H ; TH_42 B 
7c 66 210 
03A4 66 66 FC 00 00 00 211 DB 066H, 066H, OFCH, 000H, 000H, 000H ; BT_42 B 
03AA 00 00 3C 66 C2 CO 212 DB 000H, 000H, 03CH, 066H, 0C2H, OCOH, OCOH, OCOH ; TH_43 C 
co co 213 
03B2 C2 66 3C 00 00 00 214 DB 0C2H, 066H, 03CH, 000H, 000H, 000H ; BT_43 Cc 
03B8 00 00 F8 6C 66 66 215 DB 000H, 000H, OF8H, 06CH, 066H, 066H, 066H, 066H ; TH_44 D 
66 66 216 
03CO 66 6C F8 00 00 00 217 DB 066H, 06CH, OF 8H, 000H, 000H, 000H ; BT_44D 
03C6 00 00 FE 66 62 68 218 DB 000H, 000H, OFEH, 066H, 062H, 068H,078H,068H ; TH_45 E 
78 68 219 
03CE 62 66 FE 00 00 00 220 DB 062H, 066H, OFEH, 000H, 000H, 000H ; BTILA5 E 
03D4 00 00 FE 66 62 68 221 DB 000H, 000H, OFEH, 066H, 062H, 068H,078H,068H ; TH_46 F 
78 68 222 
03DC 60 60 FO 00 00 00 223 DB 060H, 060H, OFOH, 000H, 000H, 000H ; BT_46 F 
03E2 00 00 3C 66 C2 CO 224 DB 000H, 000H, 03CH, 066H, 0C2H, OCOH, OCOH, ODEH ; TH_47 G 
CO DE 225 
03EA C6 66 3A 00 00 00 226 DB OC6H, 066H, 03AH, 000H, 000H, 000H ; BTILA7G 
03FO 00 00 C6 Cé Cé Cé 227 DB 000H, 000H, 0C6H, 0C6H, OC6H, OC6H, OFEH, OC6H ; TH_48 H 
FE C6 228 
03F8 C6 C6 C6 00 00 00 229 DB OC6H, OC6H, 0C6H, 000H, 000H, 000H ; BT_48H 
O3FE 00 00 3c 18 18 18 230 DB 000H, 000H, 03CH, 018H, 018H, 018H,018H,018H ; TH_49 I 
18 18 231 
0406 18 18 3c 00 00 00 232 DB 018H, 018H, 03CH, 000H, 000H, 000H ; BT_49 I 
040C 00 00 1E 0c 0c Oc 233 DB 000H, 000H, 01EH, 00CH, OOCH, 00CH, 00CH, OOCH ; TH_4A J 
oc oc 234 
0414 CC CC 78 00 00 00 235 DB OCCH, OCCH, 078H, 000H, 000H, 000H ; BIL4A 3 
041A 00 00 E6 66 6C 6C 236 DB 000H, 000H, OF6H, 066H, 06CH, 06CH, 078H, O6CH ; TH_4B K 
78 6C 237 
0422 6C 66 E6 00 00 00 238 DB 06CH, 066H, OE6H, 000H, 000H, 000H ; BT_4B K 
0428 00 00 FO 60 60 60 239 DB 000H, 000H, OFOH, 060H, 060H, 060H, 060H,060H ; TH_AC L 
60 60 240 
0430 62 66 FE 00 00 00 241 DB 062H, 066H, OFEH, 000H, 000H, 000H ; BTLAC L 
0436 00 00 C6 EE FE FE 242 DB 000H, 000H, 0C6H, OFEH, OFEH, OFEH, OD6GH,OC6H ; TH_4D M 
D6 C6 243 
043E C6 C6 C6 00 00 00 244 DB OC6H, OC6H, 0C6H, 000H, 000H, 000H ; BT_4D M 
0444 00 00 C6 E6 F6 FE 245 DB 000H, 000H, 0C6H, OFGH, OF6H, OFEH, ODEH, OCEH ; TH_4E N 
DE CE 246 
044c C6 C6 C6 00 00 00 247 DB OC6H, OC6H, 0C6H, 000H, 000H, 000H ; BI_4E N 
0452 00 00 38 6C C6 C6 248 DB 000H, 000H, 038H, 06CH, OC6H, OC6H, OC6H, OC6H ; TH_4F O 
C6 C6 249 
045A C6 6C 38 00 00 00 250 DB OC6H, 06CH, 038H, 000H, 000H, 000H ; BIL4F oO 
251 
0460 00 00 FC 66 66 66 252 DB 000H, 000H, OFCH, 066H, 066H, 066H, 07CH,060H ; TH_50 P 
7c 60 253 
0468 60 60 FO 00 00 00 254 DB 060H, 060H, OFOH, 000H, 000H, 000H ; BT_50 P 
046E 00 00 7C C6 Cé C6 255 DB 000H, 000H, 07CH, OC6H, OC6H, 0C6H, OC6H, OD6H ; TH_51 Q 
C6 D6 256 
0476 DE 7C OC OE 00 00 257 DB ODEH, 07CH, 00CH, 00EH, 000H, 000H ; BT_51Q 
047C 00 00 FC 66 66 66 258 DB 000H, 000H, OFCH, 066H, 066H, 066H, 07CH, O6CH ; TH_52 R 
7c 6c 259 
0484 66 66 E6 00 00 00 260 DB 066H, 066H, OE6H, 000H, 000H, 000H ; BI_52R 
048A 00 00 7C C6 C6 60 261 DB 000H, 000H, 07CH, OC6H, OC6H, 060H, 038H, 0OCH ; TH_53 S 
38 oc 262 
0492 C6 C6 7C 00 00 00 263 DB OC6H, 0C6H, 07CH, 000H, 000H, 000H ; BT_53 Ss 
0498 00 00 7E 7E 5A 18 264 DB 000H, 000H, 07EH, 07EH, O5AH,018H,018H,018H ; TH_54 T 
18 18 265 
04A0 18 18 3C 00 00 00 266 DB 018H, 018H, 03CH, 000H, 000H, 000H ; BI_54T 
04A6 00 00 C6 Cé Cé C6 267 DB 000H, 000H, 0C6H, 0C6H, OC6H, OC6H, OC6H, OC6H ; TH_55 U 
C6 C6 268 
O4AE C6 C6 7C 00 00 00 269 DB OC6H, OC6H, 07CH, 000H, 000H, 000H ; BT_55 U 
04B4 00 00 C6 C6 Cé C6 270 DB 000H, 000H, 0C6H, OC6H, OC6H, OC6H, OC6H, OC6H ; TH_56 V 
C6 C6 271 
04BC 6C 38 10 00 00 00 272 DB 06CH, 038H, 010H, 000H, 000H, 000H ; BI_56 V 
04C2 00 00 C6 Cé Cé C6 273 DB 000H, 000H, 0C6H, 0C6H, OC6H, 0C6H, OD6GH, OD6H ; TH_57 W 
D6 D6 274 
O4CA FE 7C 6C 00 00 00 275 DB OFEH, 07CH, 06CH, 000H, 000H, 000H ; BI_57 W 
04D0 00 00 Cé Cé 6c 38 276 DB 000H, 000H, 0C6H, 0C6H, 06CH, 038H, 038H,038H ; TH_58 X 
38 38 277 
04D8 6C C6 C6 00 00 00 278 DB 06CH, OC6H, 0C6H, 000H, 000H, 000H ; BI_58 x 
O4DE 00 00 66 66 66 66 279 DB 000H, 000H, 066H, 066H, 066H, 066H, 03CH,018H ; TH_59 Y 
3c 18 280 
04E6 18 18 3C 00 00 00 281 DB 018H, 018H, 03CH, 000H, 000H, 000H ; BT_59 ¥ 
O4EC 00 00 FE C6 8C 18 282 DB 000H, 000H, OFEH, OC6H, 08CH, 018H, 030H,060H ; TH_5A Z 
30 60 283 
04F4 C2 C6 FE 00 00 00 284 DB 0C2H, OC6H, OFEH, 000H, 000H, 000H ; BILSA Z 
O4FA 00 00 3c 30 30 30 285 DB 000H, 000H, 03CH, 030H, 030H, 030H, 030H,030H ; TH_5B [ 
30 30 286 
0502 30 30 3c 00 00 00 287 DB 030H, 030H, 03CH, 000H, 000H, 000H ; BI_SB [ 
0508 00 00 80 CO EO 70 288 DB 000H, 000H, 080H, 0COH, OEOH, 070H, 038H,01CH ; TH_5C 
38 1c 289 
0510 OE 06 02 00 00 00 290 DB 0OEH, 006H, 002H, 000H, 000H, 000H ; BT_5c 
0516 00 00 3c 0c 0c oc 291 DB 000H, 000H, 03CH, 00CH, OOCH, 00CH, 00CH, 0OCH ; TH_5D ] 
oc oc 292 
051E 0c 0C 3c 00 00 00 293 DB 00CH, 00CH, 03CH, 000H, 000H, 000H ; BT_5D ] 
0524 10 38 6C C6 00 00 294 DB 010H, 038H, 06CH, OC6H, 000H, 000H, 000H, 000H ; TH_5E 
00 00 295 
052C 00 00 00 00 00 00 296 DB 000H, 000H, 000H, 000H, 000H, 000H ; BI_SE 
0532 00 00 00 00 00 00 297 DB 000H, 000H, 000H, 000H, 000H, 000H, 000H, OOOH ; TH_5F _ 
00 00 298 
053A 00 00 00 00 FF 00 299 DB 000H, 000H, 000H, 000H, OFFH, 000H ; BILSF _ 
300 
0540 30 30 18 00 00 00 301 DB 030H, 030H, 018H, 000H, 000H, 000H, 000H, 000H ; TH_60 * 
00 00 302 
0548 00 00 00 00 00 00 303 DB 000H, 000H, 000H, 000H, 000H, 000H ; BT_60 * 
054E 00 00 00 00 00 78 304 DB 000H, 000H, 000H, 000H, 000H, 078H, 00CH,07CH ; TH_61 LOWER_CASE A 
oc 7c 305 
0556 CC CC 76 00 00 00 306 DB OCCH, OCCH, 076H, 000H, 000H, 000H ; BT_61 LOWER_CASE A 
055C 00 00 EO 60 60 78 307 DB 000H, 000H, 0EOH, 060H, 060H, 078H, O6CH, O66H ; TH_62 L.C. B 
6C 66 308 
0564 66 66 7C 00 00 00 309 DB 066H, 066H, 07CH, 000H, 000H, 000H ; BT_62 L.c. B 
056A 00 00 00 00 00 7c 310 DB 000H, 000H, 000H, 000H, 000H, 07CH, OC6H, OCOH ; TH_63 L.C. C 
cé co 311 
0572 CO C6 7C 00 00 00 312 DB 0COH, OC6H, 07CH, 000H, 000H, 000H ; BT_63 L.c. c 
0578 00 00 1c 0c 0c 3c 313 DB 000H, 000H, 01CH, 00CH, 0OCH, 03CH, 06CH, OCCH ; TH_64 L.C. D 
6c cc 314 
0580 CC CC 76 00 00 00 315 DB OCCH, OCCH, 076H, 000H, 000H, 000H ; BT_64 L.c. D 
0586 00 00 00 00 00 7c 316 DB 000H, 000H, 000H, 000H, 000H, 07CH, OC6H, OFEH ; TH_65 L.C. E 


C6 FE 317 
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O58E 
0594 
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O5AA 
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O5B8 
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05c6 
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o5D4 
O5DA 
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o6c8 


o6DO 
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OCOH, OC6H, 07CH, 000H, 000H, 000H 
000H, 000H, 038H, 06CH, 064H, 060H, OF OH, 060H 


060H, 060H, OFOH, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, 076H, OCCH, OCCH 


OCCH, 07CH, 00CH, OCCH, 078H, 000H 
000H, 000H, 0EOH, 060H, 060H, 06CH, 076H, 066H 


066H, 066H, 0E6H, 000H, 000H, 000H 
000H, 000H, 018H, 018H, 000H, 038H, 018H, 018H 


018H, 018H, 03CH, 000H, 000H, 000H 
000H, 000H, 006H, 006H, 000H, 00EH, 006H, 006H 


006H, 006H, 066H, 066H, 03CH, 000H 
000H, 000H, 0EOH, 060H, 060H, 066H, 06CH, 078H 


06CH, 066H, OE6H, 000H, 000H, 000H 
000H, 000H, 038H, 018H, 018H, 018H, 018H, 018H 


018H, 018H, 03CH, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, OECH, OF EH, OD6H 


OD6H, OD6H, 0C6H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, ODCH, 066H, 066H 


066H, 066H, 066H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, 07CH, 0C6H, 0C6H 


OC6H, OC6H, 07CH, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, ODCH, 066H, 066H 


066H, 07CH, 060H, 060H, OFOH, 000H 
000H, 000H, 000H, 000H, 000H, 076H, OCCH, OCCH 


OCCH, 07CH, 00CH, 00CH, 01EH, 000H 
000H, 000H, 000H, 000H, 000H, ODCH, 076H, 066H 


060H, 060H, OFOH, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, 07CH, 0C6H, 070H 


01CH, OC6H, 07CH, 000H, 000H, 000H 
000H, 000H, 010H, 030H, 030H, OFCH, 030H, 030H 


030H, 036H, 01CH, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, 0CCH, 0CCH, OCCH 


OCCH, OCCH, 076H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, 066H, 066H, 066H 


066H, 03CH, 018H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, 0C6H, 0C6H, OD6H 


OD6H, OFEH, 06CH, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, 0C6H, 06CH, 038H 


038H, 06CH, 0C6H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, 0C6H, 0C6H, 0C6H 


OC6H, 07EH, 006H, 00CH, OF8H, 000H 
000H, 000H, 000H, 000H, 000H, OFEH, OCCH, 018H 


030H, 066H, OFEH, 000H, 000H, 000H 
000H, 000H, 00EH, 018H, 018H, 018H, 070H, 018H 


018H, 018H, 00EH, 000H, 000H, 000H 
000H, 000H, 018H, 018H, 018H, 018H, 000H, 018H 


018H, 018H, 018H, 000H, 000H, 000H 
000H, 000H, 070H, 018H, 018H, 018H, 0OEH, 018H 


018H, 018H, 070H, 000H, 000H, 000H 
000H, 000H, 076H, ODCH, 000H, 000H, 000H, 000H 


000H, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 010H, 038H, 06CH, OC6H 


OC6H, OFEH, 000H, 000H, 000H, 000H 
000H, 000H, 03CH, 066H, 0C2H, 0COH, 0COH, 0C2H 


066H, 03CH, 00CH, 006H, 07CH, 000H 
000H, 000H, OCCH, OCCH, 000H, 0CCH, 0CCH, OCCH 


OCCH, OCCH, 076H, 000H, 000H, 000H 
000H, 00CH, 018H, 030H, 000H, 07CH, 0C6H, OFEH 


OCOH, OC6H, 07CH, 000H, 000H, 000H 
000H, 010H, 038H, 06CH, 000H, 078H, 00CH, 07CH 


OCCH, OCCH, 076H, 000H, 000H, 000H 
000H, 000H, 0CCH, OCCH, 000H, 078H, 00CH, 07CH 


OCCH, OCCH, 076H, 000H, 000H, 000H 
000H, 060H, 030H, 018H, 000H, 078H, 00CH, 07CH 


OCCH, OCCH, 076H, 000H, 000H, 000H 
000H, 038H, 06CH, 038H, 000H, 078H, 00CH, 07CH 


OCCH, OCCH, 076H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 03CH, 066H, 060H, 066H 


03CH, 00CH, 006H, 03CH, 000H, 000H 
000H, 010H, 038H, 06CH, 000H, 07CH, 0C6H, OFEH 


0COH, OC6H, 07CH, 000H, 000H, 000H 
000H, 000H, 0CCH, OCCH, 000H, 07CH, 0C6H, OFEH 


OCOH, OC6H, 07CH, 000H, 000H, 000H 
000H, 060H, 030H, 018H, 000H, 07CH, OC6H, OFEH 


OCOH, OC6H, 07CH, 000H, 000H, 000H 
000H, 000H, 066H, 066H, 000H, 038H, 018H, 018H 


018H, 018H, 03CH, 000H, 000H, 000H 
000H, 018H, 03CH, 066H, 000H, 038H, 018H, 018H 


018H, 018H, 03CH, 000H, 000H, 000H 
000H, 060H, 030H, 018H, 000H, 038H, 018H, 018H 


018H, 018H, 03CH, 000H, 000H, 000H 
000H, OC6H, 0C6H, 010H, 038H, 06CH, OC6H, OC6H 


OFEH, OC6H, 0C6H, 000H, 000H, 000H 
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DB 
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DB 
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DB 
DB 
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038H, 06CH, 038H, 000H, 038H, 06CH, OC6H, 0C6H 
OFEH, OC6H, 0C6H, 000H, 000H, 000H 
018H, 030H, 060H, 000H, OFEH, 066H, 060H, 07CH 


060H, 066H, OFEH, 000H, 000H, 000H 
000H, 000H, 000H, 000H, OCCH, 076H, 036H, 07EH 


OD8H, OD8H, 06EH, 000H, 000H, 000H 
000H, 000H, 03EH, 06CH, OCCH, OCCH, OFEH, OCCH 


OCCH, OCCH, 0CEH, 000H, 000H, 000H 
000H, 010H, 038H, 06CH, 000H, 07CH, OC6H, OC6H 


OC6H, 0C6H, 07CH, 000H, 000H, 000H 
000H, 000H, 0C6H, 0C6H, 000H, 07CH, 0C6H, OC6H 


OC6H, OC6H, 07CH, 000H, 000H, 000H 
000H, 060H, 030H, 018H, 000H, 07CH, OC6H, 0C6H 


OC6H, OC6H, 07CH, 000H, 000H, 000H 
000H, 030H, 078H, OCCH, 000H, 0CCH, OCCH, OCCH 


OCCH, OCCH, 076H, 000H, 000H, 000H 
000H, 060H, 030H, 018H, 000H, 0CCH, OCCH, OCCH 


OCCH, OCCH, 076H, 000H, 000H, 000H 
000H, 000H, 0C6H, 0C6H, 000H, 0C6H, 0C6H, OC6H 


OC6H, 07EH, 006H, 00CH, 078H, 000H 
000H, OC6H, 0C6H, 038H, 06CH, 0C6H, 0C6H, 0C6H 


OC6H, 06CH, 038H, 000H, 000H, 000H 
000H, OC6H, 0C6H, 000H, OC6H, 0C6H, 0C6H, 0C6H 


OC6H, OC6H, 07CH, 000H, 000H, 000H 
000H, 018H, 018H, 03CH, 066H, 060H, 060H, 066H 


03CH, 018H, 018H, 000H, 000H, 000H 
000H, 038H, 06CH, 064H, 060H, OFOH, 060H, 060H 


060H, OE6H, OFCH, 000H, 000H, 000H 
000H, 000H, 066H, 066H, 03CH, 018H, 07EH, 018H 


07EH, 018H, 018H, 000H, 000H, 000H 
000H, OF 8H, OCCH, OCCH, OF 8H, 0C4H, OCCH, ODEH 


OCCH, OCCH, 0C6H, 000H, 000H, 000H 
000H, OOEH, 01BH, 018H, 018H, 018H, 07EH, 018H 


018H, 018H, 018H, OD8H, 070H, 000H 
000H, 018H, 030H, 060H, 000H, 078H, 00CH, 07CH 


OCCH, OCCH, 076H, 000H, 000H, 000H 
000H, 00CH, 018H, 030H, 000H, 038H, 018H, 018H 


018H, 018H, 03CH, 000H, 000H, 000H 
000H, 018H, 030H, 060H, 000H, 07CH, OC6H, OC6H 


OC6H, OC6H, 07CH, 000H, 000H, 000H 
000H, 018H, 030H, 060H, 000H, 0CCH, OCCH, OCCH 


OCCH, OCCH, 076H, 000H, 000H, 000H 
000H, 000H, 076H, ODCH, 000H, ODCH, 066H, 066H 


066H, 066H, 066H, 000H, 000H, 000H 
076H, ODCH, 000H, 0C6H, 0E6H, OF6H, OFEH, ODEH 


OCEH, OC6H, 0C6H, 000H, 000H, 000H 
000H, 03CH, 06CH, 06CH, 03EH, 000H, 07EH, 000H 


000H, 000H, 000H, 000H, 000H, 000H 
000H, 038H, 06CH, 06CH, 038H, 000H, 07CH, 000H 


000H, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 030H, 030H, 000H, 030H, 030H, 060H 


OC6H, 0C6H, 07CH, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, 000H, OF EH, 0COH 


0COH, OCOH, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, 000H, OF EH, 006H 


006H, 006H, 000H, 000H, 000H, 000H 
000H, OCOH, 0COH, 0C6H, OCCH, 0D8H, 030H, 060H 


ODCH, 086H, 00CH, 018H, 03EH, 000H 
000H, OCOH, 0COH, 0C6H, OCCH, 0D8H, 030H, 066H 


OCEH, 09EH, 03EH, 006H, 006H, 000H 
000H, 000H, 018H, 018H, 000H, 018H, 018H, 03CH 


03CH, 03CH, 018H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 036H, 06CH, OD8H, 06CH 


036H, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, OD8H, 06CH, 036H, 06CH 


OD8H, 000H, 000H, 000H, 000H, 000H 
011H, 044H, 011H, 044H, 011H, 044H, 011H, 044H 


011H, 044H, 011H, 044H, 011H, 0448 
055H, OAAH, 055H, OAAH, 055H, OAAH, 055H, OAAH 


055H, OAAH, 055H, OAAH, 055H, OAAH 
ODDH, 077H, ODDH, 077H, ODDH, 077H, ODDH, 077H 


ODDH, 077H, ODDH, 077H, ODDH, 077H 
018H, 018H, 018H, 018H, 018H, 018H, 018H, 018H 


018H, 018H, 018H, 018H, 018H, 018H 
018H, 018H, 018H, 018H, 018H, 018H, 018H, OF8H 


018H, 018H, 018H, 018H, 018H, 018H 
018H, 018H, 018H, 018H, 018H, OF 8H, 018H, OF8H 


018H, 018H, 018H, 018H, 018H, 018H 
036H, 036H, 036H, 036H, 036H, 036H, 036H, OF6H 


036H, 036H, 036H, 036H, 036H, 036H 
000H, 000H, 000H, 000H, 000H, 000H, 000H, OFEH 


036H, 036H, 036H, 036H, 036H, 036H 
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DB 
DB 


DB 
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DB 
DB 


DB 


DB 


DB 


000H, 000H, 000H, 000H, 000H, OF 8H, 018H, OF8H 


018H, 018H, 018H, 018H, 018H, 018H 
036H, 036H, 036H, 036H, 036H, OF 6H, 006H, OF6H 


036H, 036H, 036H, 036H, 036H, 036H 
036H, 036H, 036H, 036H, 036H, 036H, 036H, 036H 


036H, 036H, 036H, 036H, 036H, 036H 
000H, 000H, 000H, 000H, 000H, OFEH, 006H, OF6H 


036H, 036H, 036H, 036H, 036H, 036H 
036H, 036H, 036H, 036H, 036H, OF 6H, 006H, OFEH 


000H, 000H, 000H, 000H, 000H, 000H 
036H, 036H, 036H, 036H, 036H, 036H, 036H, OFEH 


000H, 000H, 000H, 000H, 000H, 000H 
018H, 018H, 018H, 018H, 018H, OF 8H, 018H, OF8H 


000H, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, 000H, 000H, OF8H 


018H, 018H, 018H, 018H, 018H, 018H 
018H, 018H, 018H, 018H, 018H, 018H, 018H, 01FH 


000H, 000H, 000H, 000H, 000H, 000H 
018H, 018H, 018H, 018H, 018H, 018H, 018H, OFFH 


000H, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, 000H, 000H, OFFH 


018H, 018H, 018H, 018H, 018H, 018H 
018H, 018H, 018H, 018H, 018H, 018H, 018H, 01FH 


018H, 018H, 018H, 018H, 018H, 018H 
000H, 000H, 000H, 000H, 000H, 000H, 000H, OFFH 


000H, 000H, 000H, 000H, 000H, 000H 
018H, 018H, 018H, 018H, 018H, 018H, 018H, OFFH 


018H, 018H, 018H, 018H, 018H, 018H 
018H, 018H, 018H, 018H, 018H, 01FH, 018H, 01FH 


018H, 018H, 018H, 018H, 018H, 018H 
036H, 036H, 036H, 036H, 036H, 036H, 036H, 037H 


036H, 036H, 036H, 036H, 036H, 036H 
036H, 036H, 036H, 036H, 036H, 037H, 030H, 03FH 


000H, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, 03FH, 030H, 037H 


036H, 036H, 036H, 036H, 036H, 036H 
036H, 036H, 036H, 036H, 036H, OF 7H, 000H, OFFH 


000H, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, OFFH, 000H, OF 7H 


036H, 036H, 036H, 036H, 036H, 036H 
036H, 036H, 036H, 036H, 036H, 037H, 030H, 037H 


036H, 036H, 036H, 036H, 036H, 036H 
000H, 000H, 000H, 000H, 000H, OFFH, 000H, OFFH 


000H, 000H, 000H, 000H, 000H, 000H 
036H, 036H, 036H, 036H, 036H, OF 7H, 000H, OF 7H 


036H, 036H, 036H, 036H, 036H, 036H 
018H, 018H, 018H, 018H, 018H, OFFH, 000H, OFFH 


000H, 000H, 000H, 000H, 000H, 000H 
036H, 036H, 036H, 036H, 036H, 036H, 036H, OFFH 


000H, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, OFFH, 000H, OFFH 


018H, 018H, 018H, 018H, 018H, 018H 
000H, 000H, 000H, 000H, 000H, 000H, 000H, OFFH 


036H, 036H, 036H, 036H, 036H, 036H 
036H, 036H, 036H, 036H, 036H, 036H, 036H, 03FH 


000H, 000H, 000H, 000H, 000H, 000H 
018H, 018H, 018H, 018H, 018H, 01FH, 018H, 01FH 


000H, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, 01FH, 018H, 01FH 


018H, 018H, 018H, 018H, 018H, 018H 
000H, 000H, 000H, 000H, 000H, 000H, 000H, 03FH 


036H, 036H, 036H, 036H, 036H, 036H 
036H, 036H, 036H, 036H, 036H, 036H, 036H, OFFH 


036H, 036H, 036H, 036H, 036H, 036H 
018H, 018H, 018H, 018H, 018H, OFFH, 018H, OFFH 


018H, 018H, 018H, 018H, 018H, 018H 
018H, 018H, 018H, 018H, 018H, 018H, 018H, OF8H 


000H, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, 000H, 000H, 01FH 


018H, 018H, 018H, 018H, 018H, 018H 
OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH 


OFFH, OFFH, OFFH, OFFH, OFFH, OFFH 
000H, 000H, 000H, 000H, 000H, 000H, 000H, OFFH 


OFFH, OFFH, OFFH, OFFH, OFFH, OFFH 
OFOH, OFOH, OFOH, OFOH, OFOH, OFOH, OFOH, OFOH 


OFOH, OFOH, OFOH, OF OH, OFOH, OFOH 
OOFH, OOFH, 0OFH, 0OFH, OOFH, 0OFH, 0OFH, OOFH 


OOFH, OOFH, OOFH, OOFH, OOFH, OOFH 
OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, 000H 


000H, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 000H, 000H, 000H, 076H, ODCH, OD8H 


OD8H, ODCH, 076H, 000H, 000H, 000H 
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TH_B8 


BT_B8 
TH_B9 


BT_B9 
TH_BA 


BT_BA 
TH_BB 


BT_BB 
TH_BC 


BT_BC 
TH_BD 


BT_BD 
TH_BE 


BT_BE 
TH_BF 


BT_BF 
TH_CO 


BT_CO 
TH_Cl 


BT_C1 
TH_C2 


BT_C2 
TH_C3 


BT_C3 
TH_C4 


BT_c4 
TH_C5 


BT_C5 
TH_C6 


BT_c6 
TH_C7 


BT_C7 
TH_C8 


BT_c8 
TH_C9 


BT_c9 
TH_CA 


BT_CA 
TH_CB 


BT_CB 
TH_CC 


BT_cc 
TH_CD 


BT_cD 
TH_CE 


BT_CE 
TH_CF 


BT_CF 
TH_DO 


BT_DO 
TH_D1 


BT_D1 
TH_D2 


BT_D2 
TH_D3 


BT_D3 
TH_D4 


BT_D4 
TH_D5 


BT_D5 
TH_D6 


BT_D6 
TH_D7 


BT_D7 
TH_D8 


BT_D8 
TH_D9 


BT_D9 
TH_DA 


BT_DA 
TH_DB 


BT_DB 
TH_DC 


BT_DC 
TH_DD 


BT_DD 
TH_DE 


BT_DE 
TH_DF 


BT_DF 
TH_EO 


BT_EO 
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OC4E 00 00 00 00 7c cé 696 DB 000H, 000H, 000H, 000H, 07CH, OC6H, OFCH, OC6H ; TH_E1 
FC C6 697 
0C56 C6 FC CO CO 40 00 698 DB OC6H, OFCH, OCOH, 0COH, 040H, 000H ; BT_E1 
OC5C 00 00 FE C6 Cé CO 699 DB 000H, 000H, OFEH, OC6H, OC6H, OCOH, OCOH, OCOH ; TH_E2 
co co 700 
0c64 CO CO CO 00 00 00 701 DB OCOH, 0COH, OCOH, 000H, 000H, 000H ; BT_E2 
OC6A 00 00 00 00 FE 6C 702 DB 000H, 000H, 000H, 000H, OFEH, 06CH, 06CH,06CH ; TH_E3 
6C 6C 703 
0c72 6C 6C 6C 00 00 00 704 DB O6CH, 06CH, 06CH, 000H, 000H, 000H ; BT_E3 
0C78 00 00 FE Cé 60 30 705 DB 000H, 000H, OFEH, 0C6H, 060H, 030H, 018H,030H ; TH_E4 
18 30 706 
0c80 60 C6 FE 00 00 00 707 DB 060H, 0C6H, OFEH, 000H, 000H, 000H ; BT_E4 
0c86 00 00 00 00 00 7E 708 DB 000H, 000H, 000H, 000H, 000H, 07EH, OD8H, OD8H ; TH_E5 
D8 D8 709 
OC8E D8 D8 70 00 00 00 710 DB OD8H, OD8H, 070H, 000H, 000H, 000H ; BT_ES 
0C94 00 00 00 00 66 66 711 DB 000H, 000H, 000H, 000H, 066H, 066H, 0O66H, 066H ; TH_EG6 
66 66 712 
oc9c 7C 60 60 CO 00 00 713 DB 07CH, 060H, 060H, OCOH, 000H, 000H ; BT_E6 
OCA2 00 00 00 00 76 DC 714 DB 000H, 000H, 000H, 000H, 076H, ODCH, 018H,018H ; TH_E7 
18 18 715 
OCAA 18 18 18 00 00 00 716 DB 018H, 018H, 018H, 000H, 000H, 000H ; BT_E7 
OCBO 00 00 7E 18 3C 66 717 DB 000H, 000H, 07EH, 018H, 03CH, 066H, 066H,066H ; TH_ES 
66 66 718 
OcB8 3C 18 7E 00 00 00 719 DB 03CH, 018H, 07EH, 000H, 000H, 000H ; BT_ES 
OCBE 00 00 38 6C Cé Cé 720 DB 000H, 000H, 038H, 06CH, OC6H, OC6H, OFEH, OC6H ; TH_E9 
FE C6 721 
Occé Cé 6C 38 00 00 00 722 DB OC6H, 06CH, 038H, 000H, 000H, 000H ; BT_EQ 
Occc 00 00 38 6C Cé Cé 723 DB 000H, 000H, 038H, 06CH, OC6H, OC6H, OC6H, 06CH ; TH_EA 
C6 6C 724 
OcD4 6C 6C EE 00 00 00 725 DB 06CH, 06CH, OEEH, 000H, 000H, 000H ; BT_EA 
OCDA 00 00 1E 30 18 OC 726 DB 000H, 000H, 01EH, 030H, 018H, 00CH, 03EH,066H ; TH_EB 
3E 66 727 
OCE2 66 66 3C 00 00 00 728 DB 066H, 066H, 03CH, 000H, 000H, 000H ; BT_EB 
OCE8 00 00 00 00 00 7E 729 DB 000H, 000H, 000H, 000H, 000H, 07EH, ODBH, ODBH ; TH_EC 
DB DB 730 
OCFO 7E 00 00 00 00 00 731 DB 07EH, 000H, 000H, 000H, 000H, 000H ; BT_EC 
OCF6 00 00 03 06 7E DB 732 DB 000H, 000H, 003H, 006H, 07EH, ODBH, ODBH, OF3H ; TH_ED 
DB F3 733 
OCFE 7E 60 CO 00 00 00 734 DB 07EH, 060H, OCOH, 000H, 000H, 000H ; BT_ED 
0D04 00 00 1c 30 60 60 735 DB 000H, 000H, 01CH, 030H, 060H, 060H,07CH,060H ; TH_EE 
7¢ 60 736 
oD0c 60 30 1C 00 00 00 737 DB 060H, 030H, 01CH, 000H, 000H, 000H ; BT_EE 
0D12 00 00 00 7C cé Ccé 738 DB 000H, 000H, 000H, 07CH, OC6H, OC6H, OC6H, OC6H ; TH_EF 
C6 C6 739 
OD1A C6 Cé Cé 00 00 00 740 DB OC6H, OC6H, OC6H, 000H, 000H, 000H ; BT_EF 
741 
0D20 00 00 00 FE 00 00 742 DB 000H, 000H, 000H, OFEH, 000H, 000H, OFEH,000H ; TH_FO 
FE 00 743 
0D28 00 FE 00 00 00 00 744 DB 000H, OFEH, 000H, 000H, 000H, 000H ; BT_FO 
OD2E 00 00 00 18 18 7E 745 DB 000H, 000H, 000H, 018H, 018H, 07EH, 018H,018H ; TH_F1 
18 18 746 
0D36 00 00 FF 00 00 00 747 DB 000H, 000H, OFFH, 000H, 000H, 000H ; BT_F1 
OD3C 00 00 30 18 0C 06 748 DB 000H, 000H, 030H, 018H, OOCH, 006H, OOCH,018H ; TH_F2 
oc 18 749 
0D44 30 00 7E 00 00 00 750 DB 030H, 000H, 07EH, 000H, 000H, 000H ; BT_F2 
OD4A 00 00 0c 18 30 60 751 DB 000H, 000H, 00CH, 018H, 030H, 060H, 030H,018H ; TH_F3 
30 18 752 
0D52 OC 00 7E 00 00 00 753 DB 00CH, 000H, 07EH, 000H, 000H, 000H ; BT_F3 
0D58 00 0O OE 1B 1B 18 754 DB 000H, 000H, OOEH, 01BH, 01BH,018H,018H,018H ; TH_F4 
18 18 755 
op60 18 18 18 18 18 18 756 DB 018H, 018H, 018H, 018H, 018H, 018H ; BI_F4 
op6é6 18 18 18 18 18 18 757 DB 018H, 018H, 018H, 018H, 018H, 018H,018H,018H ; TH_F5 
18 18 758 
OD6E D8 D8 70 00 00 00 759 DB OD8H, OD8H, 070H, 000H, 000H, 000H ; BI_LF5 
0D74 00 00 00 18 18 00 760 DB 000H, 000H, 000H, 018H, 018H, 000H, 0O7EH,000H ; TH_F6 
7E 00 761 
OD7C 18 18 00 00 00 00 762 DB 018H, 018H, 000H, 000H, 000H, 000H ; BT_F6 
0D82 00 00 00 00 76 DC 763 DB 000H, 000H, 000H, 000H, 076H, ODCH, 000H,076H ; TH_F7 
00 76 764 
OD8A DC 00 00 00 00 00 765 DB ODCH, 000H, 000H, 000H, 000H, 000H ; BT_F7 
0D90 00 38 6C 6C 38 00 766 DB 000H, 038H, O6CH, 06CH, 038H, 000H, 000H,000H ; TH_FS 
00 00 767 
0D98 00 00 00 00 00 00 768 DB 000H, 000H, 000H, 000H, 000H, 000H ; BI_FS 
OD9E 00 00 00 00 00 00 769 DB 000H, 000H, 000H, 000H, 000H, 000H, 018H,018H ; TH_F9 
18 18 770 
ODA6 00 00 00 00 00 00 771 DB 000H, 000H, 000H, 000H, 000H, 000H ; BI_F9 
ODAC 00 00 00 00 00 00 772 DB 000H, 000H, 000H, 000H, 000H, 000H, 000H,018H ; TH_FA 
oo 18 7173 
ODB4 00 00 00 00 00 00 774 DB 000H, 000H, 000H, 000H, 000H, 000H ; BT_FA 
ODBA 00 OF 0C 0C 0c OC 775 DB 000H, OOFH, 0OCH, 00CH, 00CH, 00CH, OOCH, OECH ; TH_FB 
oc EC 776 
opc2 6C 3C 1C 00 00 00 777 DB 06CH, 03CH, 01CH, 000H, 000H, 000H ; BT_FB 
Opcs8 00 D8 6C 6C 6C 6C 778 DB 000H, OD8H, 06CH, 06CH, 06CH, 06CH, O6CH,000H ; TH_FC 
6c 00 7179 
ODDO 00 00 00 00 00 00 780 DB 000H, 000H, 000H, 000H, 000H, 000H ; BT_FC 
ODD6 00 70 D8 30 60 C8 781 DB 000H, 070H, OD8H, 030H, 060H, OC8H, OF8H,000H ; TH_FD 
F8 00 782 
ODDE 00 00 00 00 00 00 783 DB 000H, 000H, 000H, 000H, 000H, 000H ; BT_FD 
ODE4 00 00 00 00 7¢ 7c 784 DB 000H, 000H, 000H, 000H, 07CH, 07CH,07CH,07CH ; TH_FE 
7¢ 7C 785 
ODEC 7C 7C 00 00 00 00 786 DB 07CH, 07CH, 000H, 000H, 000H, 000H ; BT_FE 
ODF2 00 00 00 00 00 00 787 DB 000H, 000H, 000H, 000H, 000H, 000H, 000H,000H ; TH_FF 
00 00 788 
ODFA 00 00 00 00 00 00 789 DB 000H, 000H, 000H, 000H, 000H, 000H ; BT_FF 
OEOO 790 CODE ENDS 
791 END 
1 PAGE, 120 
2 SUBTTL MONOCHROME CHARACTER GENERATOR - ALPHA SUPPLEMENT 
0000 3 CODE SEGMENT PUBLIC 
4 PUBLIC CGMN_FDG 
0000 5 CGMN_FDG LABEL BYTE 
6 
7 ; STRUCTURE OF THIS FILE 
8 ; DB XXH WHERE XX IS THE HEX CODE FOR THE FOLLOWING CHAR 
9 ; DB [BYTES 0 - 13 OF THAT CHARACTER] 
10 ; Zsiie 
11 ; DB 00H INDICATES NO MORE REPLACEMENTS TO BE DONE 
12 
13 
0000 1D 14 DB 01DH 
0001 00 00 00 00 24 66 15 DB 000H, 000H, 000H, 000H, 024H, 066H, OFFH,066H ; TH_1D 
FF 66 16 
0009 24 00 00 00 00 00 17 DB 024H, 000H, 000H, 000H, 000H, 000H ; BT_1D 
OOOF 22 18 DB 022H 
0010 00 63 63 63 22 00 19 DB 000H, 063H, 063H, 063H, 022H, 000H, 000H,000H ; TH_22 " 
00 00 20 
0018 00 00 00 00 00 00 21 DB 000H, 000H, 000H, 000H, 000H, 000H ; BT_22 " 
OO1E 2B 22 DB 02BH 
001F 00 00 00 18 18 18 23 DB 000H, 000H, 000H, 018H, 018H, 018H, OFFH,018H ; TH_2B + 
FF 18 24 
0027 18 18 00 00 00 00 25 DB 018H, 018H, 000H, 000H, 000H, 000H ; BT_2B + 
002D 2D 26 DB 02DH 
002E 00 00 00 00 00 00 27 DB 000H, 000H, 000H, 000H, 000H, 000H, OFFH,000H ; TH_2D — 
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0036 00 00 00 00 00 00 29 DB 000H, 000H, 000H, 000H, 000H, 000H ; BT_2D - 
003C 4D 30 DB 04DH 
003D 00 00 C3 E7 FF DB 31 DB 000H, 000H, 0C3H, 0E7H, OFFH, ODBH, 0C3H,0C3H ; TH_4D M 
c3 C3 32 
0045 C3 C3 C3 00 00 00 33 DB 0C3H, 0C3H, 0C3H, 000H, 000H, 000H ; BT_4D M 
004B 54 34 DB 054H 
004c 00 00 FF DB 99 18 35 DB 000H, 000H, OFFH, ODBH, 099H, 018H,018H,018H ; TH_54 T 
18 18 36 
0054 18 18 3c 00 00 00 37 DB 018H, 018H, 03CH, 000H, 000H, 000H ; BI_54T 
OO5A 56 38 DB 056H 
005B 00 00 C3 C3 C3 C3 39 DB 000H, 000H, 0C3H, 0C3H, 0C3H, 0C3H, 0C3H,0C3H ; TH_56 V 
c3 c3 40 
0063 66 3C 18 00 00 00 41 DB 066H, 03CH, 018H, 000H, 000H, 000H ; BI_56 Vv 
0069 57 42 DB 057H 
006A 00 00 C3 C3 C3 C3 43 DB 000H, 000H, 0C3H, 0C3H, 0C3H, 0C3H, ODBH, ODBH ; TH_57 W 
DB DB 44 
0072 FF 66 66 00 00 00 45 DB OFFH, 066H, 066H, 000H, 000H, 000H ; BIL57 W 
0078 58 46 DB 058H 
0079 00 00 c3 C3 66 3C 47 DB 000H, 000H, 0C3H, 0C3H, 066H, 03CH, 018H,03CH ; TH_58 X 
18 3c 48 
0081 66 C3 C3 00 00 00 49 DB 066H, 0C3H, 0C3H, 000H, 000H, 000H ; BI_58 x 
0087 59 50 DB 059H 
0088 00 00 C3 C3 C3 66 51 DB 000H, 000H, 0C3H, 0C3H, 0C3H, 066H, 03CH,018H ; TH_59 Y 
3c 18 52 
0090 18 18 3c 00 00 00 53 DB 018H, 018H, 03CH, 000H, 000H, 000H ; BT_59 ¥ 
0096 5A 54 DB O5AH 
0097 00 00 FF C3 86 OC 55 DB 000H, 000H, OFFH, 0C3H, 086H, 00CH, 018H,030H ; TH_5A Z 
18 30 56 
009F 61 C3 FF 00 00 00 57 DB 061H, 0C3H, OFFH, 000H, 000H, 000H ; BILSA Z 
O0OA5 6D 58 DB O6DH 
00A6 00 00 00 00 00 E6 59 DB 000H, 000H, 000H, 000H, 000H, OE6H, OFFH,ODBH ; TH_6D L.C. M 
FF DB 60 
OOAE DB DB DB 00 00 00 61 DB ODBH, ODBH, ODBH, 000H, 000H, 000H ; BT_6D L.c. M 
00B4 76 62 DB 076H 
00B5 00 00 00 00 00 c3 63 DB 000H, 000H, 000H, 000H, 000H, 0C3H, 0C3H,0C3H ; TH_76 L.C. V 
c3 C3 64 
OOBD 66 3C 18 00 00 00 65 DB 066H, 03CH, 018H, 000H, 000H, 000H ; BT_76 L.c. Vv 
00c3 77 66 DB 077H 
00C4 00 00 00 00 00 c3 67 DB 000H, 000H, 000H, 000H, 000H, 0C3H, 0C3H, ODBH ; TH_77 L.C. W 
c3 DB 68 
00CcC DB FF 66 00 00 00 69 DB ODBH, OFFH, 066H, 000H, 000H, 000H ; BI_77 L.c. W 
oop2 91 70 DB 091H 
00D3 00 00 00 00 6E 3B 71 DB 000H, 000H, 000H, 000H, 06EH, 03BH,01BH,07EH ; TH_91 
1B 7E 72 
O0ODB D8 DC 77 00 00 00 73 DB OD8H, ODCH, 077H, 000H, 000H, 000H ; BT_91 
00OE1 9B 74 DB O9BH 
00E2 00 18 18 7E C3 CO 75 DB 000H, 018H, 018H, 07EH, 0C3H, OCOH, OCOH, 0C3H ; TH_9B 
co c3 76 
OQOEA 7E 18 18 00 00 00 77 DB 07EH, 018H, 018H, 000H, 000H, 000H ; BI_9B 
OOFO 9D 78 DB O9DH 
OOF1 00 00 C3 66 3c 18 79 DB 000H, 000H, 0C3H, 066H, 03CH, 018H, OFFH,018H ; TH_9D 
FF 18 80 
O0OF9 FF 18 18 00 00 00 81 DB OFFH, 018H, 018H, 000H, 000H, 000H ; BT_9D 
OOFF 9E 82 DB O9EH 
0100 00 FC 66 66 7C 62 83 DB 000H, OFCH, 066H, 066H, 07CH, 062H, 066H, O6FH ; TH_9E 
66 6F 84 
0108 66 66 F3 00 00 00 85 DB 066H, 066H, OF 3H, 000H, 000H, 000H ; BI_9E 
010E F1 86 DB OF1H 
010F 00 00 18 18 18 FF 87 DB 000H, 000H, 018H, 018H, 018H, OFFH,018H,018H ; TH_F1 
18 18 88 
0117 18 00 FF 00 00 00 89 DB 018H, 000H, OFFH, 000H, 000H, 000H ; BILF1 
011D F6 90 DB OF6H 
011E 00 00 18 18 00 00 91 DB 000H, 000H, 018H, 018H, 000H, 000H, OFFH,000H ; TH_F6 
FF 00 92 
0126 00 18 18 00 00 00 93 DB 000H, 018H, 018H, 000H, 000H, 000H ; BILF6 
012c 00 94 DB 000H ; NO MORE 
012D 95 CODE ENDS 
96 END 
1 PAGE, 120 
2 SUBTTL DOUBLE DOT CHARACTER GENERATOR 
0000 3 CODE SEGMENT PUBLIC 
4 PUBLIC CGDDOT, INT_1F_1 
0000 5 CGDDOT LABEL BYTE 
6 ; DOUBLE DOT 
0000 00 00 00 00 00 00 7 DB 000H, 000H, 000H, 000H, 000H, 000H, 000H, 000H ; D_00 
00 00 8 
0008 7E 81 A5 81 BD 99 9 DB 07EH, 081H, 0A5H, 081H, OBDH, 099H,081H,07EH ; D_01 
81 7E 10 
0010 7E FF DB FF C3 E7 11 DB 07EH, OFFH, ODBH, OFFH, 0C3H, 0E7H, OFFH,O07EH ; D_02 
FF 7E 12 
0018 6C FE FE FE 7C 38 13 DB 06CH, OFEH, OFEH, OFEH, 07CH, 038H,010H,000H ; D_03 
10 00 14 
0020 10 38 7C FE 7C 38 15 DB 010H, 038H, 07CH, OFEH, 07CH, 038H,010H,000H ; D_04 
10 00 16 
0028 38 7C 38 FE FE 7C 17 DB 038H, 07CH, 038H, OFEH, OFEH, 07CH,038H,07CH ; D_O5 
38 7c 18 
0030 10 10 38 7C FE 7C 19 DB 010H, 010H, 038H, 07CH, OFEH, 07CH, 038H,07CH ; D_06 
38 7c 20 
0038 00 00 18 3c 3c 18 21 DB 000H, 000H, 018H, 03CH, 03CH, 018H, 000H,000H ; D_O7 
00 00 22 
0040 FF FF E7 C3 C3 E7 23 DB OFFH, OFFH, 0E7H, 0C3H, 0C3H, 0E7H, OFFH, OFFH ; D_08 
FF FF 24 
0048 00 3C 66 42 42 66 25 DB 000H, 03CH, 066H, 042H, 042H, 066H, 03CH,000H ; D_09 
3c 00 26 
0050 FF C3 99 BD BD 99 27 DB OFFH, 0C3H, 099H, OBDH, OBDH, 099H, 0C3H, OFFH ; D_OA 
C3 FF 28 
0058 OF 07 OF 7D cc cc 29 DB OOFH, 007H, OOFH, 07DH, OCCH, OCCH, OCCH,078H ; D_OB 
cc 78 30 
0060 3C 66 66 66 3c 18 31 DB 03CH, 066H, 066H, 066H, 03CH, 018H, 07EH,018H ; D_OC 
7B 18 32 
0068 3F 33 3F 30 30 70 33 DB 03FH, 033H, 03FH, 030H, 030H,070H, OFOH, OKOH ; D_OD 
FO EO 34 
0070 7F 63 7F 63 63 67 35 DB O7FH, 063H, 07FH, 063H, 063H, 067H, OF6H,OCOH ; D_OE 
E6 CO 36 
0078 99 5A 3C E7 E7 3C 37 DB 099H, O5AH, 03CH, 0E7H, OE7H, 03CH, 05AH,099H ; D_OF 
5A 99 38 
39 
0080 80 EO F8 FE F8 EO 40 DB 080H, OEOH, OF 8H, OFEH, OF8H, OEOH, 080H,000H ; D_10 
80 00 41 
0088 02 OF 3E FE 3E OE 42 DB 002H, 0OEH, 03EH, OFEH, 03EH, 00OEH,002H,000H ; D_11 
02 00 43 
0090 18 3C 7E 18 18 7E 44 DB 018H, 03CH, 07EH, 018H, 018H, 07EH, 03CH,018H ; D_12 
3c 18 45 
0098 66 66 66 66 66 00 46 DB 066H, 066H, 066H, 066H, 066H, 000H, 066H, OOOH ; D_13 
66 00 47 
00AO 7F DB DB 7B 1B 1B 48 DB 07FH, ODBH, ODBH, 07BH, 01BH,01BH,01BH,000H ; D_14 
1B 00 49 
O00OA8 3E 63 38 6C 6C 38 50 DB 03EH, 063H, 038H, 06CH, 06CH, 038H, OCCH,078H ; D_15 
cc 78 51 
00BO 00 00 00 00 7E 7E 52 DB 000H, 000H, 000H, 000H, 07EH, 07EH, 07EH, OOOH ; D_16 
7E 00 53 
00B8 18 3C 7E 18 7E 3C 54 DB 018H, 03CH, 07EH, 018H, 07EH, 03CH,018H,OFFH ; D_17 
18 FF 55 


00coO 18 3C 7E 18 18 18 56 DB 018H, 03CH, 07EH, 018H, 018H, 018H,018H,000H ; D_18 
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oocs is is 18 18 7E 3c 3 DB 018H, 018H, 018H, 018H, 07EH, 03CH,018H,000H ; D_19 
oop0 00 is Oc FE 0c 18 Ps DB 000H, 018H, 00CH, OFEH, 0OCH, 018H,000H,000H ; D_1A 
oops 00 30 60 FE 60 30 aa DB 000H, 030H, 060H, OFEH, 060H, 030H, 000H,000H ; D_1B 
00EO 00 00 CO CO CO FE oa DB 000H, 000H, 0COH, 0COH, OCOH, OFEH, 000H, 000H ; D_ic 
00E8 00 a 66 FF 66 24 ae DB 000H, 024H, 066H, OFFH, 066H, 024H, 000H, 000H ; D_1D 
0oFo 00 is 3C 7E FF FF rts DB 000H, 018H, 03CH, 07EH, OFFH, OFFH,000H,000H ; D_1E 
oors 00 FF 7E 3C 18 30 DB 000H, OFFH, OFFH, 07EH, 03CH, 018H,000H,000H ; D_IF 
00 00 71 
72 
0100 00 00 00 00 00 00 73 DB 000H, 000H, 000H, 000H, 000H, 000H, 000H, 000H ; SP D_20 
0108 30 38 78 30 30 00 eo DB 030H, 078H, 078H, 030H, 030H, 000H, 030H,000H ; ! D_21 
0110 ec ee 6C 00 00 00 a DB 06CH, 06CH, 06CH, 000H, 000H, 000H, 000H, 000H ; " D_22 
0118 ec ee FE 6C FE 6C 73 DB 06CH, 06CH, OFEH, 06CH, OFEH, 06CH,06CH,000H ; # D_23 
0120 30 a co 78 Oc F8 a1 DB 030H, 07CH, OCOH, 078H, OOCH, OF8H,030H,000H ; $ D_24 
0128 30 ae cc 18 30 66 33 DB 000H, OC6H, 0CCH, 018H, 030H, 066H, OC6H,000H ; PER CENT D_25 
0130 38 ee 38 76 DC cc 35 DB 038H, 06CH, 038H, 076H, ODCH, OCCH, 076H,000H ; & D_26 
0138 eo 60 CO 00 00 00 a7 DB 060H, 060H, 0COH, 000H, 000H, 000H, 000H, 000H ; ’ D_27 
0140 is 30 60 60 60 30 a8 DB 018H, 030H, 060H, 060H, 060H, 030H,018H,000H ; ( D_28 
0148 £0 30 18 18 18 30 OL DB 060H, 030H, 018H, 018H, 018H, 030H,060H,000H ; ) D_29 
0150 00 66 3C FF 3C 66 33 DB 000H, 066H, 03CH, OFFH, 03CH, 066H,000H,000H ; * D_2A 
0158 00 30 30 FC 30 30 35 DB 000H, 030H, 030H, OFCH, 030H, 030H, 000H,000H ; + D_2B 
0160 00 00 00 00 00 30 o DB 000H, 000H, 000H, 000H, 000H, 030H, 030H,060H ; , D_2c 
0168 30 00 00 FC 00 00 38 DB 000H, 000H, 000H, OFCH, 000H, 000H, 000H, 000H ; - D_2D 
0170 00 00 00 00 00 30 101 DB 000H, 000H, 000H, 000H, 000H, 030H,030H,000H ; . D_2E 
0178 36 ac 18 30 60 CO 103 DB 006H, 0OCH, 018H, 030H, 060H, OCOH, 080H,000H ; / D_2F 
80 00 104 
105 
0180 7C C6 CE DE F6 E6 106 DB 07CH, OC6H, OCEH, ODEH, OF6H, OE6H,07CH,000H ; 0 D_30 
0188 30 70 30 30 30 30 108 DB 030H, 070H, 030H, 030H, 030H, 030H, OFCH,000H ; 1 D_31 
0190 78 oe oc 38 60 cc 130 DB 078H, OCCH, 00CH, 038H, 060H, OCCH, OFCH,000H ; 2 D_32 
0198 78 es oc 38 0c cc rer DB 078H, OCCH, 00CH, 038H, OOCH, OCCH,078H,000H ; 3 D_33 
01A0 ie ac 6C CC FE 0c re DB 01CH, 03CH, 06CH, OCCH, OFEH, 00CH,01EH,000H ; 4 D_34 
01a8 oa a F8 0c 0c cc 146 DB OFCH, OCOH, OF 8H, 00CH, 0OCH, OCCH, 078H,000H ; 5 D_35 
01B0 38 60 co F8 cc cc ree DB 038H, 060H, OCOH, OF 8H, OCCH, OCCH,078H,000H ; 6 D_36 
01B8 pd ee 0c 18 30 30 120 DB OFCH, OCCH, 00CH, 018H, 030H, 030H, 030H,000H ; 7 D_37 
01c0 38 bs cc 78 cc cc tga DB 078H, OCCH, OCCH, 078H, OCCH, OCCH, 078H,000H ; 8 D_38 
o1cs as es cc 7c 0c 18 124 DB 078H, OCCH, OCCH, 07CH, OOCH, 018H,070H,000H ; 9 D_39 
01D0 00 30 30 00 00 30 126 DB 000H, 030H, 030H, 000H, 000H, 030H, 030H,000H ; : D_3A 
01p8 30 30 30 00 00 30 rey DB 000H, 030H, 030H, 000H, 000H, 030H, 030H,060H ; ;_3B 
01E0 is 30 60 CO 60 30 130 DB 018H, 030H, 060H, 0COH, 060H, 030H, 018H,000H ; < D_3C 
01E8 00 00 FC 00 00 FC 132 DB 000H, 000H, OFCH, 000H, 000H, OFCH, 000H,000H ; = D_3D 
01F0 60 30 18 0c 18 30 13a DB 060H, 030H, 018H, 00CH, 018H, 030H,060H,000H ; > D_3E 
o1Fs 38 be 0c 18 30 00 138 DB 078H, OCCH, 00CH, 018H, 030H, 000H, 030H,000H ; ? D_3F 
30 00 137 
138 
0200 7C C6 DE DE DE CO 139 DB 07CH, OC6H, ODEH, ODEH, ODEH, OCOH, 078H,000H ; @ D_40 
0208 30 38 cc cc Fc cc tay DB 030H, 078H, OCCH, OCCH, OFCH, OCCH, OCCH, 000H ; A D_41 
0210 re 66 66 7C 66 66 143 DB OFCH, 066H, 066H, 07CH, 066H, 066H, OFCH,000H ; B D_42 
0218 3c 66 CO CO CO 66 tas DB 03CH, 066H, OCOH, 0COH, OCOH, 066H, 03CH,000H ; C D_43 
0220 a é 66 66 66 6C re DB OF8H, 06CH, 066H, 066H, 066H, 06CH, OF8H,000H ; D D_44 
0228 re €2 68 78 68 62 149 DB OFEH, 062H, 068H, 078H, 068H, 062H, OFEH,000H ; E D_45 
0230 re €2 68 78 68 60 isi DB OFEH, 062H, 068H, 078H, 068H, 060H, OFOH, OOOH ; F D_46 
0238 3c 66 CO CO CE 66 isa DB 03CH, 066H, OCOH, 0COH, OCEH, 066H, 03EH,000H ; G D_47 
0240 ce oe cc FC cc cc iss DB OCCH, OCCH, OCCH, OFCH, OCCH, OCCH, OCCH, 000H ; H D_48 
0248 8 30 30 30 30 30 res DB 078H, 030H, 030H, 030H, 030H, 030H,078H,000H ; 1 D_49 
0250 ip ac 0c oc cc cc 133 DB 01EH, 0OCH, 00CH, 00CH, OCCH, OCCH,078H,000H ; J D_4A 
0258 Ee 66 6C 78 6C 66 tei DB OE6H, 066H, 06CH, 078H, 06CH, 066H, OF6H, OOOH ; K D_4B 
0260 = 60 60 60 62 66 123 DB OFOH, 060H, 060H, 060H, 062H, 066H, OFEH,000H ; L D_4c 
0268 ce ee FE FE D6 C6 ies DB OC6H, OEEH, OFEH, OFEH, OD6H, OC6H, OC6H, OOOH ; M D_4D 
0270 ce me F6 DE CE C6 ie DB OC6H, OE6H, OF 6H, ODEH, OCEH, OC6H, OC6H, 000H ; N D_4E 
0278 38 ee C6 C6 C6 6C 169 DB 038H, 06CH, 0C6H, 0C6H, OC6H, 06CH, 038H,000H ; O D_4F 
38 00 170 
171 
0280 FC 66 66 7C 60 60 172 DB OFCH, 066H, 066H, 07CH, 060H, 060H, OFOH, 000H ; P D_50 
0288 78 ce cc cc pc 78 dea DB 078H, OCCH, OCCH, OCCH, ODCH, 078H, 01CH,000H ; Q D_51 
0290 Ae 66 66 7C 6C 66 176 DB OFCH, 066H, 066H, 07CH, 06CH, 066H, OF6H, 000H ; R D_52 
0298 7 es EO 70 1c cc re DB 078H, OCCH, OEOH, 070H, 01CH, OCCH, 078H,000H ; S D_53 
02a0 Bs oa 30 30 30 30 180 DB OFCH, 0B4H, 030H, 030H, 030H, 030H,078H,000H ; T D_54 
78 00 181 


02A8 cc cc cc cc cc cc 182 DB OCCH, OCCH, OCCH, OCCH, OCCH, OCCH, OFCH,000H ; U D_55 


59 


02B0 
02B8 
02c0 
02c8 
02D0 
02D8 
02E0 
02E8 
02F0 


o2F8 


0300 
0308 
0310 
0318 
0320 
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0348 
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03cO 
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O3F8 
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0448 
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cc 


cé 


6c 


cc 
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60 


30 


18 


6C 
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78 


60 


78 


oc 
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60 
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70 
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66 


30 
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Dc 
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7c 
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cc 
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cé 
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DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 


DB 


DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 


DB 


DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 


DB 


INT_1F_1 
DB 


DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 


DB 


DB 


DB 


OCCH, OCCH, 0CCH, OCCH, OCCH, 078H, 030H, 000H 
OC6H, OC6H, 0C6H, ODG6H, OFEH, OEEH, 0C6H, 000H 
OC6H, OC6H, 06CH, 038H, 038H, 06CH, 0C6H, 000H 
OCCH, OCCH, 0CCH, 078H, 030H, 030H, 078H, 000H 
OFEH, OC6H, 08CH, 018H, 032H, 066H, OFEH, 000H 
078H, 060H, 060H, 060H, 060H, 060H, 078H, 000H 
OCOH, 060H, 030H, 018H, 00CH, 006H, 002H, 000H 
078H, 018H, 018H, 018H, 018H, 018H, 078H, 000H 
010H, 038H, 06CH, 0C6H, 000H, 000H, 000H, 000H 


000H, 000H, 000H, 000H, 000H, 000H, 000H, OFFH 


030H, 030H, 018H, 000H, 000H, 000H, 000H, 000H 
000H, 000H, 078H, 00CH, 07CH, OCCH, 076H, 000H 
OE0H, 060H, 060H, 07CH, 066H, 066H, ODCH, 000H 
000H, 000H, 078H, OCCH, OCOH, 0CCH, 078H, 000H 
01CH, 00CH, 00CH, 07CH, OCCH, 0CCH, 076H, 000H 
000H, 000H, 078H, OCCH, OFCH, 0COH, 078H, 000H 
038H, 06CH, 060H, OFOH, 060H, 060H, OFOH, 000H 
000H, 000H, 076H, OCCH, OCCH, 07CH, 00CH, OF8H 
OE0H, 060H, 06CH, 076H, 066H, 066H, OF6H, 000H 
030H, 000H, 070H, 030H, 030H, 030H, 078H, 000H 
00CH, 000H, 00CH, 00CH, 00CH, 0CCH, OCCH, 078H 
OE0H, 060H, 066H, 06CH, 078H, 06CH, OE6H, 000H 
070H, 030H, 030H, 030H, 030H, 030H, 078H, 000H 
000H, 000H, 0CCH, OFEH, OFEH, 0D6H, 0C6H, 000H 
000H, 000H, OF 8H, OCCH, OCCH, 0CCH, OCCH, 000H 


000H, 000H, 078H, OCCH, OCCH, 0CCH, 078H, 000H 


000H, 000H, ODCH, 066H, 066H, 07CH, 060H, OFOH 
000H, 000H, 076H, OCCH, OCCH, 07CH, 00CH, 01EH 
000H, 000H, ODCH, 076H, 066H, 060H, OFOH, 000H 
000H, 000H, 07CH, 0COH, 078H, 00CH, OF 8H, 000H 
010H, 030H, 07CH, 030H, 030H, 034H, 018H, 000H 
000H, 000H, 0CCH, OCCH, OCCH, 0CCH, 076H, 000H 
000H, 000H, 0CCH, OCCH, OCCH, 078H, 030H, 000H 
000H, 000H, 0C6H, OD6H, OFEH, OFEH, 06CH, 000H 
000H, 000H, 0C6H, 06CH, 038H, 06CH, OC6H, 000H 
000H, 000H, 0CCH, OCCH, OCCH, 07CH, 00CH, OF8H 
000H, 000H, OFCH, 098H, 030H, 064H, OFCH, 000H 
01CH, 030H, 030H, OE0H, 030H, 030H, 01CH, 000H 
018H, 018H, 018H, 000H, 018H, 018H, 018H, 000H 
OE0H, 030H, 030H, 01CH, 030H, 030H, OE0H, 000H 
076H, ODCH, 000H, 000H, 000H, 000H, 000H, 000H 


000H, 010H, 038H, 06CH, OC6H, 0C6H, OFEH, 000H 


LABEL BYTE 
078H, OCCH, 0COH, OCCH, 078H, 018H, 00CH, 078H 


000H, OCCH, 000H, OCCH, OCCH, 0CCH, 07EH, 000H 
01CH, 000H, 078H, OCCH, OFCH, 0COH, 078H, 000H 
07EH, 0C3H, 03CH, 006H, 03EH, 066H, 03FH, 000H 
OCCH, 000H, 078H, 00CH, 07CH, OCCH, 07EH, 000H 
OE0H, 000H, 078H, 00CH, 07CH, 0CCH, 07EH, 000H 
030H, 030H, 078H, 00CH, 07CH, OCCH, 07EH, 000H 
000H, 000H, 078H, 0COH, OCOH, 078H, 00CH, 038H 
07EH, 0C3H, 03CH, 066H, 07EH, 060H, 03CH, 000H 
OCCH, 000H, 078H, OCCH, OFCH, 0COH, 078H, 000H 
OE0H, 000H, 078H, OCCH, OFCH, 0COH, 078H, 000H 
OCCH, 000H, 070H, 030H, 030H, 030H, 078H, 000H 
07CH, OC6H, 038H, 018H, 018H, 018H, 03CH, 000H 
OE0H, 000H, 070H, 030H, 030H, 030H, 078H, 000H 
OC6H, 038H, 06CH, 0C6H, OFEH, 0C6H, 0C6H, 000H 


030H, 030H, 000H, 078H, OCCH, OFCH, OCCH, 000H 


01CH, 000H, OFCH, 060H, 078H, 060H, OFCH, 000H 


000H, 000H, 07FH, 00CH, 07FH, OCCH, 07FH, 000H 
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Vv D_56 
W D_57 
x D_58 
Y DL59 
Z D_SA 
[ DSB 
BACKSLASH D_5C 
] DLS5D 
CIRCUMFLEX D_5E 


D_5F 


’ D_60 

LOWER CASE A D_61 
L.c. B D_62 

L.c. C D_63 


L.c. D D_64 


i] 
° 
Ls) 
0 
a 
° 


iJ 
aQ 
n 0 
je} 
I 
B 


n 
a 
a 
0 
~ 
w 


H 
9 
4 
0 
J 
= 


iJ 
2.2 Os 
x = <a 

0 

J 

o 


L.c. ¥ D_79 

L.c. Z D_7A 

L BRAK D_7B 
D_7c 

R BRAK D_7D 

TILDE D_7E 


DELTA D_7F 


60 


0490 
0498 
04A0 
04A8 
04B0 
04B8 
04cO 
04c8 
04D0 
04D8 
04E0 
04E8 
04F0 


O4F8 


0500 
0508 
0510 
0518 
0520 
0528 
0530 
0538 
0540 
0548 
0550 
0558 
0560 
0568 
0570 


0578 


0580 
0588 
0590 
0598 
O5A0 
O5A8 
O5B0 
O5B8 
05c0 
o5c8 
O5D0 
O5D8 
O5E0 
O5E8 
O5F0 


O5F8 


0600 
0608 
0610 
0618 
0620 
0628 
0630 
0638 
0640 
0648 
0650 
0658 
0660 
0668 


0670 


cc 


00 


00 


00 


00 


00 


00 


3c 


cc 


TE 


64 


78 
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00 
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6C 


6C 
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co 


co 
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DB 


DB 


DB 


DB 


DB 


DB 


DB 


DB 


DB 


DB 


DB 
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DB 
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DB 
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DB 


DB 


DB 


DB 


DB 


DB 


DB 


DB 


DB 


DB 


DB 


DB 


DB 


DB 


DB 


DB 


DB 


DB 


DB 


03EH, 06CH, 0CCH, OFEH, OCCH, 0CCH, OCEH, 000H 
078H, OCCH, 000H, 078H, OCCH, 0CCH, 078H, 000H 
000H, OCCH, 000H, 078H, OCCH, 0CCH, 078H, 000H 
000H, OEOH, 000H, 078H, OCCH, 0CCH, 078H, 000H 
078H, OCCH, 000H, OCCH, OCCH, 0CCH, 07EH, 000H 
000H, OEOH, 000H, 0CCH, OCCH, 0CCH, 07EH, 000H 
000H, OCCH, 000H, 0CCH, OCCH, 07CH, 00CH, OF8H 
0C3H, 018H, 03CH, 066H, 066H, 03CH, 018H, 000H 
OCCH, 000H, 0CCH, OCCH, OCCH, 0CCH, 078H, 000H 
018H, 018H, 07EH, 0COH, OCOH, 07EH, 018H, 018H 
038H, 06CH, 064H, OFOH, 060H, 06H, OFCH, 000H 
OCCH, OCCH, 078H, OFCH, 030H, OFCH, 030H, 030H 
OF8H, OCCH, 0CCH, OFAH, OC6H, OCFH, 0C6H, 0C7H 


OOEH, 01BH, 018H, 03CH, 018H, 018H, OD8H, 070H 


01CH, 000H, 078H, 00CH, 07CH, OCCH, 07EH, 000H 
038H, 000H, 070H, 030H, 030H, 030H, 078H, 000H 
000H, 01CH, 000H, 078H, OCCH, 0CCH, 078H, 000H 
000H, 01CH, 000H, OCCH, OCCH, 0CCH, 07EH, 000H 
000H, OF8H, 000H, OF 8H, OCCH, 0CCH, OCCH, 000H 
OFCH, 000H, 0CCH, OECH, OFCH, ODCH, OCCH, 000H 
03CH, 06CH, 06CH, 03EH, 000H, 07EH, 000H, 000H 
038H, 06CH, 06CH, 038H, 000H, 07CH, 000H, 000H 
030H, 000H, 030H, 060H, OCOH, 0CCH, 078H, 000H 
000H, 000H, 000H, OFCH, OCOH, 0COH, 000H, 000H 
000H, 000H, 000H, OFCH, 00CH, 00CH, 000H, 000H 
0C3H, OC6H, 0CCH, ODEH, 033H, 066H, OCCH, OOFH 
0C3H, OC6H, 0CCH, ODBH, 037H, 06FH, OCFH, 003H 
018H, 018H, 000H, 018H, 018H, 018H, 018H, 000H 
000H, 033H, 066H, OCCH, 066H, 033H, 000H, 000H 


000H, OCCH, 066H, 033H, 066H, OCCH, 000H, 000H 


022H, 088H, 022H, 088H, 022H, 088H, 022H, 088H 
055H, OAAH, 055H, OAAH, 055H, OAAH, 055H, OAAH 
ODBH, 077H, ODBH, OFEH, ODBH, 077H, ODBH, OEEH 
018H, 018H, 018H, 018H, 018H, 018H, 018H, 018H 
018H, 018H, 018H, 018H, OF8H, 018H, 018H, 018H 
018H, 018H, OF 8H, 018H, OF8H, 018H, 018H, 018H 
036H, 036H, 036H, 036H, OF6H, 036H, 036H, 036H 
000H, 000H, 000H, 000H, OFEH, 036H, 036H, 036H 
000H, 000H, OF 8H, 018H, OF8H, 018H, 018H, 018H 
036H, 036H, OF 6H, 006H, OF 6H, 036H, 036H, 036H 
036H, 036H, 036H, 036H, 036H, 036H, 036H, 036H 
000H, 000H, OFEH, 006H, OF 6H, 036H, 036H, 036H 
036H, 036H, OF 6H, 006H, OFEH, 000H, 000H, 000H 
036H, 036H, 036H, 036H, OFEH, 000H, 000H, 000H 
018H, 018H, OF 8H, 018H, OF8H, 000H, 000H, 000H 


000H, 000H, 000H, 000H, OF 8H, 018H, 018H, 018H 


018H, 018H, 018H, 018H, 01FH, 000H, 000H, 000H 
018H, 018H, 018H, 018H, OFFH, 000H, 000H, 000H 
000H, 000H, 000H, 000H, OF FH, 018H, 018H, 018H 
018H, 018H, 018H, 018H, 01FH, 018H, 018H, 018H 
000H, 000H, 000H, 000H, OFFH, 000H, 000H, 000H 
018H, 018H, 018H, 018H, OFFH, 018H, 018H, 018H 
018H, 018H, 01FH, 018H, 01FH, 018H, 018H, 018H 
036H, 036H, 036H, 036H, 037H, 036H, 036H, 036H 
036H, 036H, 037H, 030H, 03FH, 000H, 000H, 000H 
000H, 000H, 03FH, 030H, 037H, 036H, 036H, 036H 
036H, 036H, OF 7H, 000H, OFFH, 000H, 000H, 000H 
000H, 000H, OFFH, 000H, OF 7H, 036H, 036H, 036H 
036H, 036H, 037H, 030H, 037H, 036H, 036H, 036H 
000H, 000H, OFFH, 000H, OFFH, 000H, 000H, 000H 


036H, 036H, OF 7H, 000H, OF 7H, 036H, 036H, 036H 
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IBM Enhanced Graphics Adapter 


DB 018H, 018H, OFFH, 000H, OFFH, 000H, 000H, 000H 
DB 036H, 036H, 036H, 036H, OFFH, 000H, 000H, 000H 
DB 000H, 000H, OFFH, 000H, OFFH, 018H, 018H, 018H 
DB 000H, 000H, 000H, 000H, OF FH, 036H, 036H, 036H 
DB 036H, 036H, 036H, 036H, 03FH, 000H, 000H, 000H 
DB 018H, 018H, 01FH, 018H, 01FH, 000H, 000H, 000H 
DB 000H, 000H, 01FH, 018H, 01FH, 018H, 018H, 018H 
DB 000H, 000H, 000H, 000H, 03FH, 036H, 036H, 036H 
DB 036H, 036H, 036H, 036H, OFFH, 036H, 036H, 036H 
DB 018H, 018H, OFFH, 018H, OFFH, 018H, 018H, 018H 
DB 018H, 018H, 018H, 018H, OF8H, 000H, 000H, 000H 
DB 000H, 000H, 000H, 000H, 01FH, 018H, 018H, 018H 
DB OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH, OFFH 
DB 000H, 000H, 000H, 000H, OF FH, OFFH, OFFH, OFFH 
DB OFOH, OFOH, OFOH, OF OH, OFOH, OFOH, OF OH, OFOH 
DB OOFH, OOFH, 0OFH, 0OFH, OOFH, OOFH, 0OFH, OOFH 
DB OFFH, OFFH, OFFH, OFFH, 000H, 000H, 000H, 000H 
DB 000H, 000H, 076H, ODCH, OC8H, ODCH, 076H, 000H 
DB 000H, 078H, OCCH, OF 8H, OCCH, OF 8H, 0COH, OCOH 
DB 000H, OFCH, 0CCH, 0COH, OCOH, 0COH, 0COH, 000H 
DB 000H, OFEH, 06CH, 06CH, 06CH, 06CH, 06CH, 000H 
DB OFCH, OCCH, 060H, 030H, 060H, 0CCH, OFCH, 000H 
DB 000H, 000H, 07EH, OD8H, OD8H, 0D8H, 070H, 000H 
DB 000H, 066H, 066H, 066H, 066H, 07CH, 060H, OCOH 
DB 000H, 076H, ODCH, 018H, 018H, 018H, 018H, 000H 
DB OFCH, 030H, 078H, OCCH, OCCH, 078H, 030H, OFCH 
DB 038H, 06CH, 0C6H, OFEH, OC6H, 06CH, 038H, 000H 
DB 038H, 06CH, 0C6H, 0C6H, 06CH, 06CH, OFEH, 000H 
DB 01CH, 030H, 018H, 07CH, OCCH, 0CCH, 078H, 000H 
DB 000H, 000H, 07EH, ODBH, ODBH, 07EH, 000H, 000H 
DB 006H, 00CH, 07EH, ODBH, ODBH, 07EH, 060H, OCOH 
DB 038H, 060H, 0COH, OF 8H, OCOH, 060H, 038H, 000H 
DB 078H, OCCH, 0CCH, OCCH, OCCH, 0CCH, OCCH, 000H 
DB 000H, OFCH, 000H, OFCH, 000H, OFCH, 000H, 000H 
DB 030H, 030H, OFCH, 030H, 030H, 000H, OFCH, 000H 
DB 060H, 030H, 018H, 030H, 060H, 000H, OFCH, 000H 
DB 018H, 030H, 060H, 030H, 018H, 000H, OFCH, 000H 
DB OOEH, 01BH, 01BH, 018H, 018H, 018H, 018H, 018H 
DB 018H, 018H, 018H, 018H, 018H, 0D8H, OD8H, 070H 
DB 030H, 030H, 000H, OFCH, 000H, 030H, 030H, 000H 
DB 000H, 076H, ODCH, 000H, 076H, ODCH, 000H, 000H 
DB 038H, 06CH, 06CH, 038H, 000H, 000H, 000H, 000H 
DB 000H, 000H, 000H, 018H, 018H, 000H, 000H, 000H 
DB 000H, 000H, 000H, 000H, 018H, 000H, 000H, 000H 
DB OOFH, 00CH, 00CH, 00CH, OECH, 06CH, 03CH, 01CH 
DB 078H, 06CH, 06CH, 06CH, 06CH, 000H, 000H, 000H 
DB 070H, 018H, 030H, 060H, 078H, 000H, 000H, 000H 
DB 000H, 000H, 03CH, 03CH, 03CH, 03CH, 000H, 000H 
DB 000H, 000H, 000H, 000H, 000H, 000H, 000H, 000H 

CODE ENDS 
END 
PAGE, 120 
SUBTTL END ADDRESS 

CODE SEGMENT PUBLIC 

PUBLIC END_ADDRESS 

END_ADDRESS LABEL BYTE 

CODE ENDS 
END 
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